notebook11-Binning data for Tables

Load data

Change factor levels to N, L M H E, etc

str(data)

'data.frame':   3180108 obs. of  51 variables:
 $ Date                 : Factor w/ 29 levels "20191118","20191119",..: 1 2 2 2 2 2 2 2 2 2 ...
 $ File.name            : Factor w/ 125 levels "20191118_view1_",..: 1 2 2 2 2 2 2 2 2 2 ...
 $ X                    : num  0.1632 0.0384 0.0206 0.0206 0.0204 ...
 $ Y                    : num  0.0405 0.3385 0.3315 0.334 0.3339 ...
 $ Z                    : num  -0.0774 -0.0235 -0.0245 -0.0219 -0.0221 ...
 $ Track                : Factor w/ 8 levels "1","2","3","4",..: 1 3 3 3 3 3 3 3 3 3 ...
 $ View                 : Factor w/ 22 levels "_1","1 ","1_",..: 3 3 3 3 3 3 3 3 3 3 ...
 $ D_V_T                : Factor w/ 538 levels "20191118_1__1",..: 1 4 4 4 4 4 4 4 4 4 ...
 $ D_V                  : Factor w/ 125 levels "20191118_1_",..: 1 2 2 2 2 2 2 2 2 2 ...
 $ Flow.rate            : Factor w/ 5 levels "0","0.6","3",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ Chlorophyll          : Factor w/ 5 levels "No Chlorophyll",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ Guano                : Factor w/ 2 levels "Absent","Present": 1 1 1 1 1 1 1 1 1 1 ...
 $ Light                : Factor w/ 2 levels "Absent","Present": 2 2 2 2 2 2 2 2 2 2 ...
 $ Flume                : Factor w/ 1 level "Horizontal": 1 1 1 1 1 1 1 1 1 1 ...
 $ Flow.Direction       : Factor w/ 1 level "Horizontal": 1 1 1 1 1 1 1 1 1 1 ...
 $ dx                   : num  0.00283 -0.017826 0.000035 -0.000199 0.002657 ...
 $ dy                   : num  -0.00183 -0.007 0.00252 -0.00016 0.0004 ...
 $ dz                   : num  0.00056 -0.001051 0.002653 -0.000194 -0.002498 ...
 $ d                    : num  0.003415 0.01918 0.003659 0.000321 0.003669 ...
 $ vx                   : num  0.0849 -0.53478 0.00105 -0.00597 0.07971 ...
 $ vy                   : num  -0.0548 -0.21 0.0756 -0.0048 0.012 ...
 $ vz                   : num  0.0168 -0.03153 0.07959 -0.00582 -0.07494 ...
 $ v                    : num  0.10246 0.5754 0.10978 0.00962 0.11006 ...
 $ heading              : num  2.1443 -1.945 0.0139 -2.248 1.4214 ...
 $ pitch                : num  0.1647 -0.0548 0.8111 -0.6497 -0.749 ...
 $ turn.anglexy         : num  1.3273 0.1129 0.0619 0.0616 0.061 ...
 $ turn.angleyz         : num  2.66 1.64 1.64 1.64 1.64 ...
 $ turn.angle           : num  31.1 92.1 107.5 142 95.3 ...
 $ vel.turn.angle       : num  0 125.7 107.5 142 95.3 ...
 $ vel                  : num  0 0.3389 0.3426 0.0597 0.0598 ...
 $ vel.flow             : num  -0.0548 -0.21 0.0756 -0.0048 0.012 ...
 $ trim.X               : num  0.1632 0.0384 0.0206 0.0206 0.0204 ...
 $ xsmooth              : num  0.074 0.0384 0.0206 0.023 0.0367 ...
  ..- attr(*, "k")= int 31
 $ ysmooth              : num  0.327 0.332 0.334 0.334 0.334 ...
  ..- attr(*, "k")= int 31
 $ zsmooth              : num  -0.0266 -0.0245 -0.0235 -0.0235 -0.0232 ...
  ..- attr(*, "k")= int 31
 $ smooth.dx            : num  -0.03558 -0.01779 0.00246 0.01366 -0.01334 ...
 $ smooth.dy            : num  0.00472 0.00236 0.00016 0.00024 0 ...
 $ smooth.dz            : num  0.002102 0.001051 0 0.000312 0 ...
 $ smooth.d             : num  0.03596 0.01798 0.00246 0.01367 0.01334 ...
 $ smooth.vx            : num  -1.0675 -0.5337 0.0737 0.4098 -0.4001 ...
 $ smooth.vy            : num  0.1416 0.0708 0.0048 0.0072 0 ...
 $ smooth.vz            : num  0.06306 0.03153 0 0.00936 0 ...
 $ smooth.v             : num  1.0787 0.5393 0.0739 0.41 0.4001 ...
 $ smooth.heading       : num  -82.4 -82.4 86.3 89 -90 ...
 $ heading.pi           : num  -82.4 -82.4 86.3 89 -90 ...
 $ smooth.pitch         : num  3.35 3.35 0 1.31 0 ...
 $ pitch.perfect        : num  3.35 3.35 0 1.31 0 ...
 $ turn.anglexysmooth   : num  0.2226 0.1153 0.0616 0.0689 0.1094 ...
  ..- attr(*, "k")= int 31
 $ turn.angleyzsmooth   : num  1.65 1.64 1.64 1.64 1.64 ...
  ..- attr(*, "k")= int 31
 $ turn.angle.smooth    : num  NA NA NA NA NA NA NA NA NA NA ...
 $ vel.turn.angle.smooth: num  0 NaN 168.24 3.02 178.35 ...
 - attr(*, "na.action")= 'omit' Named int [1:3401545] 1 2 3 4 5 6 7 8 9 10 ...
  ..- attr(*, "names")= chr [1:3401545] "1" "2" "3" "4" ...

aggregate data by factor levels Find max, min, mean and sd for v and vel.flow

```r

agg.data <- aggregate(data, by = list(data$Light, data$Flow.rate, data$Chlorophyll, data$Guano), FUN = mean)

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuV2FybmluZyBpbiBtZWFuLmRlZmF1bHQoWFtbaV1dLCAuLi4pIDpcbiAgYXJndW1lbnQgaXMgbm90IG51bWVyaWMgb3IgbG9naWNhbDogcmV0dXJuaW5nIE5BXG5XYXJuaW5nIGluIG1lYW4uZGVmYXVsdChYW1tpXV0sIC4uLikgOlxuICBhcmd1bWVudCBpcyBub3QgbnVtZXJpYyBvciBsb2dpY2FsOiByZXR1cm5pbmcgTkFcbldhcm5pbmcgaW4gbWVhbi5kZWZhdWx0KFhbW2ldXSwgLi4uKSA6XG4gIGFyZ3VtZW50IGlzIG5vdCBudW1lcmljIG9yIGxvZ2ljYWw6IHJldHVybmluZyBOQVxuIn0= -->

Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA Warning in mean.default(X[[i]], …) : argument is not numeric or logical: returning NA

<!-- rnb-output-end -->

<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuaGVhZChhZ2cuZGF0YSlcbmBgYFxuYGBgclxuYWdnLmRhdGEgPC0gYWdnLmRhdGFbIC1jKDU6NiwgMTA6MTcpIF1cbmhlYWQoYWdnLmRhdGEpXG5gYGBcbmBgYCJ9 -->

```r
```r
head(agg.data)

agg.data <- agg.data[ -c(5:6, 10:17) ]
head(agg.data)

<!-- rnb-source-end -->

<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUyLCJzdW1tYXJ5IjpbXX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJ1MVllemhVNnhvZll4aVhSRXJibzh0SlJXMWxLa1ZSZTk1eDE0M2NSWmM5eHNMVW1HSE1HSlNVMGdWblN5VmR0SXQ5MUxhbGJGTHBNaXNxbHhCUlJDWDNpRW9waGVqTU1Hc3hPcDNUZWM1NW52UFBtZWRaei9mOTN1Lzd2YmUxdm5ldGR4d3MzQllydVNrUkNBUlpBa21HU0pDVkUwMEo4dWJyRmhrWUdoQUlKS0lJeVJCSUJFWHhHQ3phTlZFMFdTSWFWY1RiaGhZSkJPS29VWEpKRWVWWlNCRENDaFROMUlaV0pWSlR6MENFelpNZzhqb3VNZ1NscVhJTUZqMFFZK0w2dk9rTUhvY3JtZzJPOFdTMEY3S2lpelNzanZoRm9rRU9zMmJMbVdIRjRnZ2tVR0VOUnpBYUs2OUZ2Smg4djlFaVJSdW1qKzlvd1RqTFlCNFg4VU9HWlVObVpMLzhXNDZPdWFRY0pVazBqQmM1YXU3TDRuQTUvcjRoTEpaRXFpcjI5MnV4dXNUdHIxZlVocndmTGY5dk8vdzlkL1dmbXlPTUYwdkN1OFFQSURuNWU4Zi9sQWRva201MThONWt5R2ZZM2YwMXRRcUtTM3VzUFlvblE5bitqN2VlcXE4RElkLzJyN3F2cktEZ2tJQ1kzbCtQODNML0VuemlqT2sxS0RlTDJ4MjVUZytLeDAwZHR6ZWxHVXJ0US8zSTBWcFF1S0dpeTJ4dUlwU1MxVnkwckRvd0hucjFqZkg1eW1tUjZLMHZINjZxMWZIUWsyYnpRaTBmeUtCNW4yU0R0Nzd6UUROLzR4ZGxyc3RDMFI4RmRFSjVEc2Fqa2Z6dEIyTHRvbWx5V2phbGxyUXIwTDBQS2RCSWphU1IyaEFuazVSck5OSk0vWkxyYTE3UTVFODc3YjdodnVOL2xjLy84LzR4ajNwdHdPK0tRWU05OVVibHVQd3daRG1NYTd2NzlOU2NFOVFLbXpNR1hjZjkwT1V1clRyMGo3WEM3T0EyU2tiNEI0d25mRXkyNlFxM25TOU1iOHRLTU5RT29iYnZpSmpVSXpTbmxzN1dMKytMZUlRYTJ5N2I4ZkQ1S3VxZzIvR1NEK0dYY0Y1dGErMlMvZmIxd3JTd3QwZnROYTFRNHM5dnFiU0xZY0lIc3dDSlVUNEhzNThQR0dqMWRRZ3I5THIyMnpWTnhYaXd1YkZSNXlVcUM1NWw3cTk2bmg0R1Irc0pLeXZDL2dRUFBXYjBvZDJ6d2N0M3BzYlp4Y213bVZHUitjenpJTTVUWEh2MENacTFGSlRsbnZScC9OSU1IbHJHT3lxZFo0TDI3TWtMY21PcjBBTkpndHZLanplZ0pPMzFhWGNGdlJnUDFkMzdrQzVZN3lMOHJEUjNZMjZaSGl4dFBkNTl6bUVqVExGLzJmMnlOZ25kbCtQVTh5TE9HZFlFcWkzVW5aT0o4MzVjeG9xRGtnSmhiNzc2OWs3NVk2aTlTYVBlaHIvdFFXZE1VT1lzWHZVU0F1TUdOdld1L2duVlZqQU52OWZjaVB1WjNueEpObWJpUlBnekdZRWYyUGNnV2YyTW9hRnpGYVFLOHQ3VnVMK0RMTzNUNzFlWCswSzZYL3kraXpFK09LK3pjb2Z1Z25kMHVLeG0xblI0K3pHNE41bVpWOEpNZ0ZzdGIzWkVPcCtFa2owV3RRcytiNE1IdHFvSi91RVBjVDhKMW1uc2dDZUFCa1lYN3JxU2NBd05hTmpwbU1xTEE1ZVVIRmNaajZXUVRibnMxK3EyQ213MlgySStOdy9GZUY4K0VZWiszeHBwTHNTbE9jNnlneGorWmo2YmpCYktCL3crRFpxV3FPUkZWVVRSeUcxV2FZcWFITm9QSjhJTXBtZ1Y0L0VWdVhWeGNySTlJWjkxKzg0aFcwOG95Vlp2dmVOd0hxK0RaWmNYakkvWStETVVWcUZKeE42Q0VkNm1aVzZycytvZ244bEpOWDhZQ2lVM1Y4aWJlNnlGc2dOTExMM1plbEJXVWQyZWM5NENDaXV0UTZjbGp0akxuYTY5NWIxbW9xaCs5aVR4amc1Q3NmS0RGU21kV2FMNm1WNzlXMklMRkxvd21oV2R4ZlZ6dGFXclJ3d2UzOVgydDl2eTA5SkU5VE9UNmZQOE5YcHlRYlpLajljSFVmMWtlRGlxcmhEVno2c3pOZU9LVVhUT2Z2MFZKaWgrSHE1RmhTei9VajVaeUQ4U29kY1hiVU50V2FuV1hLT2dMMHliSDNXalc4TVlTUDB6SG5YN1ZBZ3Y1QnN6dmpndHdNL3R5VmtPTjlsSEtOVFVlOG9IV1l2Q3FaM2htUjFOUnRlRmw4Mzh6YzExZHFLVEo2WE1tRXF2b2FaYlVNT1duOGJQa1RCNjJkNWdsa3djOVV4M2hNempQeEJoaDZadFZseWlLalZIOStqVnR2dDBWS21GdktWMkZWOTRJKzNsOVBuNUtYaGVYUGxaeElLSnBXQnZFY0NpNlJEQklmNzFoZGc0QmJETnI5N2cyNm9EU0VYQzhuUHBnZUNnbW5hZW5Ic0R6NHRDdzRQZm9WSmRlR2U1aWNLcVpqdFkvRDY4S2xxUUp1d055WnN3cXlrTEhOUFloVWNXT1FvLzF6d3FSVGMxNFBHMUIweUxTL2lqbnZwSmYwczF3dllGa3l0WGJ1cklPcUNrdXBVd3ZodFFyeXozKzFvbmIxTDdPWDN4UGkwMFBMNmFQWU5xTGFhN3FHOEtEOThPZ2xqVTJMdW8wQzFpTFpDUDZLOTFONDFBMXh0ZGZqOC9wUVJWYXBpM2ZXV2ZDUjVmeXFCcnhZbmtnM0Jtb1o3ejlwbVprTVNLdlgwMjRTTWsxakpiazExdnd5VytYOEVyZzBRNDh6cmpyYlZsRXM1cjJpUm90STFrUS9XTC9RRkZWVVhRWkcxL01aaGxDTlVmYjUxem9MUkF3N2JHSHNGOWRhalIvenpOeTFNTjQ5Rk1YVldNRTd0K29SbDZoNTFOSkpOcHBtYU81Vy92VnRNTStjVFc2bmxiYVdDcmJLUEwya2d6aWhLMkhqdGdoTnM3T1BDRU1MZmpCZXlhUmErenN6RkV0MU9uM0h5eXp4RGlla3crYkZEMmgrdFd4WGJGSjNyUmdCN05rcnN0bmpqdk5jdXp3YXozRk5SZFBOeXU0YzVGYTJ5dUZmQXN2YUZyVWt5ZXE3b2NUWE9yUS9UNmpuaTBmQkpidjBCZ2gvUGVUbGVNZko2QVFrdnVTNlJIWng1MFJzUlAyTDJtRVRyek5GL3ZQRmNNWFkwZHozVDZCZEFlbEdJWDY2ZUN4MGU4Vkw1NmFuWUdUZVlZcjE3cEp5Zm9yNitmNy8ySlJDUE91MURVdkxFZUJreWZEZWpXWGFjUittdnF6R2taK0h2c2srUTk5WjNqOTlhbHNTTWVYMk5QL0p1ZUZlK2c1WVpuaHRiS05taTMzVjE5bXBRQm5ia0RtbFdKREhoeFREMGlhTmxqYUJQR1YzTWJqby9FbHhtbFhOTm5JNHJQbVJENzJnajY2eHJpVzdPUGkrSnpVZjAxWmlvTUxLMk8zM1dxaTBiNExEQTRwYmx3ckorWS8vKzZma3IzSFd5Nkg0TDFIVXV3cjFsckxvZnZUMWtrRFEyazRXSnBpSEZKRm5RZWd2VVNWa3dXUWhGYndEb3JOMnl5SHB1NFk0NDRjZW1NclpnU0Z5YUM5Ujl5RnB0ZE5qdEpnS3dJNE1wRi9RaUZPMkpOK2V0MlFNNmFUMmR6TUxCRzFCdGdIK3hFcjJCOEZvTFBRakd2dkRCUkVMNHRDTjhXaEc4THduTGdpOUM5bUd3ZnpKSS9rOGZ3eFRvYlVVdEk0Zkc1YkFxZDdjUENuRlVRUzcxSHVpeDVIcGZwUjhIU1F3NE85T053ZUpnS2NvZzBESldDaXNPSWdrZUVDMExHQ2pESEZUREJtQTFCWTFVRWpWVVJORllGbG9MeEVpeWRDU1VKcFBnenNYWlNzbTkwaWxTR0FNVWY0WG9qRE93T3FZL2tMRmc2L2xFcklkS3BtREN5UXBGYTBKQytDZEtMNDBaYitsb1dnb1dzTk9vdVNwOGlSYTdvVWNST2tyaGtFWGNPbnpYNWJ6U0VTbDUwSHAzaXpSVWZqYUdtVUVvZG1lUFBZM0xZSW1WRThkOFFjbVBJTXR3eEFsVStXMnpjUzUvaHkyZHYxVjhzTmtBWWFXRlZKS1A4cVBtU1laT2tzWDhZeUNOc0h5WWJlMHJsV0hSUEJEdE00MFZCRHNWSThlY3k4YzVYU1NRTnBQQTRQRHEyVDRuQllXR1M0WVozOE85eXY3ck9maEVBQUE9PSJ9 -->

<div data-pagedtable="false">
  <script data-pagedtable-source type="application/json">
{"columns":[{"label":[""],"name":["_rn_"],"type":[""],"align":["left"]},{"label":["Group.1"],"name":[1],"type":["fctr"],"align":["left"]},{"label":["Group.2"],"name":[2],"type":["fctr"],"align":["left"]},{"label":["Group.3"],"name":[3],"type":["fctr"],"align":["left"]},{"label":["Group.4"],"name":[4],"type":["fctr"],"align":["left"]},{"label":["Date"],"name":[5],"type":["dbl"],"align":["right"]},{"label":["File.name"],"name":[6],"type":["dbl"],"align":["right"]},{"label":["X"],"name":[7],"type":["dbl"],"align":["right"]},{"label":["Y"],"name":[8],"type":["dbl"],"align":["right"]},{"label":["Z"],"name":[9],"type":["dbl"],"align":["right"]},{"label":["Track"],"name":[10],"type":["dbl"],"align":["right"]},{"label":["View"],"name":[11],"type":["dbl"],"align":["right"]},{"label":["D_V_T"],"name":[12],"type":["dbl"],"align":["right"]},{"label":["D_V"],"name":[13],"type":["dbl"],"align":["right"]},{"label":["Flow.rate"],"name":[14],"type":["dbl"],"align":["right"]},{"label":["Chlorophyll"],"name":[15],"type":["dbl"],"align":["right"]},{"label":["Guano"],"name":[16],"type":["dbl"],"align":["right"]},{"label":["Light"],"name":[17],"type":["dbl"],"align":["right"]},{"label":["dx"],"name":[18],"type":["dbl"],"align":["right"]},{"label":["dy"],"name":[19],"type":["dbl"],"align":["right"]},{"label":["dz"],"name":[20],"type":["dbl"],"align":["right"]},{"label":["d"],"name":[21],"type":["dbl"],"align":["right"]},{"label":["vx"],"name":[22],"type":["dbl"],"align":["right"]},{"label":["vy"],"name":[23],"type":["dbl"],"align":["right"]},{"label":["vz"],"name":[24],"type":["dbl"],"align":["right"]},{"label":["v"],"name":[25],"type":["dbl"],"align":["right"]},{"label":["heading"],"name":[26],"type":["dbl"],"align":["right"]},{"label":["pitch"],"name":[27],"type":["dbl"],"align":["right"]},{"label":["vel.turn.angle"],"name":[28],"type":["dbl"],"align":["right"]},{"label":["vel.flow"],"name":[29],"type":["dbl"],"align":["right"]},{"label":["trim.X"],"name":[30],"type":["dbl"],"align":["right"]},{"label":["xsmooth"],"name":[31],"type":["dbl"],"align":["right"]},{"label":["ysmooth"],"name":[32],"type":["dbl"],"align":["right"]},{"label":["zsmooth"],"name":[33],"type":["dbl"],"align":["right"]},{"label":["smooth.dx"],"name":[34],"type":["dbl"],"align":["right"]},{"label":["smooth.dy"],"name":[35],"type":["dbl"],"align":["right"]},{"label":["smooth.dz"],"name":[36],"type":["dbl"],"align":["right"]},{"label":["smooth.d"],"name":[37],"type":["dbl"],"align":["right"]},{"label":["smooth.vx"],"name":[38],"type":["dbl"],"align":["right"]},{"label":["smooth.vy"],"name":[39],"type":["dbl"],"align":["right"]},{"label":["smooth.vz"],"name":[40],"type":["dbl"],"align":["right"]},{"label":["smooth.v"],"name":[41],"type":["dbl"],"align":["right"]},{"label":["smooth.heading"],"name":[42],"type":["dbl"],"align":["right"]},{"label":["heading.pi"],"name":[43],"type":["dbl"],"align":["right"]},{"label":["smooth.pitch"],"name":[44],"type":["dbl"],"align":["right"]},{"label":["pitch.perfect"],"name":[45],"type":["dbl"],"align":["right"]},{"label":["turn.anglexysmooth"],"name":[46],"type":["dbl"],"align":["right"]},{"label":["turn.angleyzsmooth"],"name":[47],"type":["dbl"],"align":["right"]},{"label":["turn.angle.smooth"],"name":[48],"type":["dbl"],"align":["right"]},{"label":["vel.turn.angle.smooth"],"name":[49],"type":["dbl"],"align":["right"]},{"label":["turn.anglexy"],"name":[50],"type":["dbl"],"align":["right"]},{"label":["turn.angleyz"],"name":[51],"type":["dbl"],"align":["right"]},{"label":["turn.angle"],"name":[52],"type":["dbl"],"align":["right"]}],"data":[{"1":"Absent","2":"No Flow","3":"No Chlorophyll","4":"Absent","5":"NA","6":"NA","7":"0.1235527","8":"0.1337729","9":"-0.09740029","10":"2.554844","11":"NA","12":"NA","13":"NA","14":"NA","15":"NA","16":"NA","17":"NA","18":"1.608727e-06","19":"-5.728831e-06","20":"-6.413881e-06","21":"0.001946183","22":"4.826180e-05","23":"-1.718649e-04","24":"-1.924164e-04","25":"0.05838549","26":"0.90081699","27":"-3.105156e-05","28":"NaN","29":"-1.718649e-04","30":"0.1980267","31":"0.1981879","32":"0.1337320","33":"-0.09731969","34":"-1.581962e-06","35":"4.043874e-07","36":"-2.028108e-07","37":"0.0014318703","38":"-4.745885e-05","39":"1.213162e-05","40":"-6.084323e-06","41":"0.04295611","42":"0.6052818","43":"34.68009","44":"0.016593382","45":"0.9507307","46":"1.0698333","47":"2.338288","48":"NA","49":"NaN","50":"0.5926008","51":"2.337177","52":"NaN","_rn_":"1"},{"1":"Present","2":"No Flow","3":"No Chlorophyll","4":"Absent","5":"NA","6":"NA","7":"0.1749057","8":"0.2540630","9":"-0.13281127","10":"2.637834","11":"NA","12":"NA","13":"NA","14":"NA","15":"NA","16":"NA","17":"NA","18":"1.718069e-06","19":"-8.913574e-07","20":"-8.193245e-07","21":"0.002296140","22":"5.154207e-05","23":"-2.674072e-05","24":"-2.457973e-05","25":"0.06888421","26":"0.08618563","27":"-4.771980e-03","28":"NaN","29":"-2.674072e-05","30":"0.1751942","31":"0.1750927","32":"0.2540871","33":"-0.13280325","34":"-8.039218e-08","35":"7.685792e-07","36":"5.051852e-07","37":"0.0010539158","38":"-2.411765e-06","39":"2.305738e-05","40":"1.515556e-05","41":"0.03161747","42":"0.3735067","43":"21.40035","44":"0.008368268","45":"0.4794664","46":"0.6799213","47":"2.199442","48":"NA","49":"NaN","50":"0.6792463","51":"2.199381","52":"NA","_rn_":"2"},{"1":"Absent","2":"Low Flow","3":"No Chlorophyll","4":"Absent","5":"NA","6":"NA","7":"0.2172230","8":"0.2113071","9":"-0.02661961","10":"1.220556","11":"NA","12":"NA","13":"NA","14":"NA","15":"NA","16":"NA","17":"NA","18":"5.514005e-05","19":"1.215657e-05","20":"-3.505455e-05","21":"0.001176612","22":"1.654202e-03","23":"3.646971e-04","24":"-1.051637e-03","25":"0.03529835","26":"0.20380899","27":"-4.365445e-03","28":"NaN","29":"6.003647e-01","30":"0.2242759","31":"0.2245250","32":"0.2112981","33":"-0.02654918","34":"1.014968e-05","35":"1.358930e-05","36":"-1.291988e-05","37":"0.0011343795","38":"3.044903e-04","39":"4.076789e-04","40":"-3.875964e-04","41":"0.03403138","42":"0.6024559","43":"34.51818","44":"-0.006895169","45":"-0.3950641","46":"0.8909402","47":"1.742401","48":"NA","49":"NaN","50":"0.7908344","51":"1.741914","52":"NaN","_rn_":"3"},{"1":"Present","2":"Low Flow","3":"No Chlorophyll","4":"Absent","5":"NA","6":"NA","7":"0.2463674","8":"0.2290490","9":"-0.14819377","10":"2.613475","11":"NA","12":"NA","13":"NA","14":"NA","15":"NA","16":"NA","17":"NA","18":"4.359172e-06","19":"3.473917e-06","20":"-4.085943e-06","21":"0.001658061","22":"1.307752e-04","23":"1.042175e-04","24":"-1.225783e-04","25":"0.04974183","26":"0.13201708","27":"1.382285e-03","28":"NaN","29":"6.001042e-01","30":"0.2463674","31":"0.2463746","32":"0.2290551","33":"-0.14820520","34":"-8.098481e-07","35":"-1.326771e-06","36":"1.499101e-06","37":"0.0009392311","38":"-2.429544e-05","39":"-3.980313e-05","40":"4.497302e-05","41":"0.02817693","42":"0.3744966","43":"21.45708","44":"0.017540857","45":"1.0050171","46":"0.8986935","47":"2.271329","48":"NA","49":"NaN","50":"0.8986803","51":"2.271160","52":"NaN","_rn_":"4"},{"1":"Present","2":"Medium Flow","3":"No Chlorophyll","4":"Absent","5":"NA","6":"NA","7":"0.1189775","8":"0.1903328","9":"-0.07280670","10":"2.516689","11":"NA","12":"NA","13":"NA","14":"NA","15":"NA","16":"NA","17":"NA","18":"-4.171669e-04","19":"-3.861320e-04","20":"1.592633e-04","21":"0.002491061","22":"-1.251501e-02","23":"-1.158396e-02","24":"4.777899e-03","25":"0.07473182","26":"0.22278653","27":"8.274403e-02","28":"88.03465","29":"2.988416e+00","30":"0.2477473","31":"0.2486219","32":"0.1901364","33":"-0.07281066","34":"4.001802e-05","35":"-8.423097e-05","36":"-5.129746e-05","37":"0.0026638941","38":"1.200541e-03","39":"-2.526929e-03","40":"-1.538924e-03","41":"0.07991682","42":"0.5463729","43":"31.30486","44":"0.106548984","45":"6.1048071","46":"1.0554007","47":"1.828581","48":"NA","49":"NaN","50":"0.7373135","51":"1.826133","52":"88.03465","_rn_":"5"},{"1":"Present","2":"High Flow","3":"No Chlorophyll","4":"Absent","5":"NA","6":"NA","7":"0.1841573","8":"0.2267781","9":"-0.12172648","10":"2.827798","11":"NA","12":"NA","13":"NA","14":"NA","15":"NA","16":"NA","17":"NA","18":"-1.279848e-06","19":"2.894029e-05","20":"-4.331525e-06","21":"0.001915890","22":"-3.839545e-05","23":"8.682088e-04","24":"-1.299458e-04","25":"0.05747669","26":"0.27038946","27":"7.438308e-04","28":"NaN","29":"5.900868e+00","30":"0.1940536","31":"0.1939477","32":"0.2267851","33":"-0.12169696","34":"-9.171460e-07","35":"8.722120e-07","36":"-1.708957e-06","37":"0.0011023690","38":"-2.751438e-05","39":"2.616636e-05","40":"-5.126871e-05","41":"0.03307107","42":"0.3934317","43":"22.54198","44":"-0.004385087","45":"-0.2512470","46":"0.7957331","47":"2.122974","48":"NA","49":"NaN","50":"0.7732648","51":"2.123274","52":"NaN","_rn_":"6"}],"options":{"columns":{"min":{},"max":[10],"total":[52]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
  </script>
</div>

<!-- rnb-frame-end -->

<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuY29sbmFtZXMoYWdnLmRhdGEpIDwtIGMoXFxMaWdodFxcLCBcXEZsb3cucmF0ZVxcLCBcXENobG9yb3BoeWxsXFwsIFxcR3Vhbm9cXCwgXFxYXFwsIFxcWVxcLCBcXFpcXCwgXFxkeFxcLCBcXGR5XFwsIFxcZHpcXCwgXFxkXFwsIFxcdnhcXCwgXFx2eVxcLCBcXHZ6XFwsIFxcdlxcLCBcXGhlYWRpbmdcXCwgXFxwaXRjaFxcLCBcXHZlbC50dXJuLmFuZ2xlXFwsIFxcdmVsLmZsb3dcXCwgXFx0cmltLlhcXCwgXFx4c21vb3RoXFwsIFxceXNtb290aFxcLCBcXHpzbW9vdGhcXCwgXFxzbW9vdGguZHhcXCwgXFxzbW9vdGguZHlcXCwgXFxzbW9vdGguZHpcXCwgXFxzbW9vdGguZFxcLCBcXHNtb290aC52eFxcLCBcXHNtb290aC52eVxcLCBcXHNtb290aC52elxcLCBcXHNtb290aC52XFwsIFxcc21vb3RoLmhlYWRpbmdcXCwgXFxoZWFkaW5nLnBpXFwsIFxcc21vb3RoLnBpdGNoXFwsIFxccGl0Y2gucGVyZmVjdFxcLCBcXHR1cm4uYW5nbGV4eXNtb290aFxcLCAgXFx0dXJuLmFuZ2xleXpzbW9vdGhcXCwgXFx0dXJuLmFuZ2xlLnNtb290aFxcLCBcXHZlbC50dXJuLmFuZ2xlLnNtb290aFxcLCBcXHR1cm4uYW5nbGV4eVxcLCBcXHR1cm4uYW5nbGV5elxcLCBcXHR1cm4uYW5nbGVcXClcbmhlYWQoYWdnLmRhdGEpXG5gYGBcbmBgYCJ9 -->

```r
```r
colnames(agg.data) <- c(\Light\, \Flow.rate\, \Chlorophyll\, \Guano\, \X\, \Y\, \Z\, \dx\, \dy\, \dz\, \d\, \vx\, \vy\, \vz\, \v\, \heading\, \pitch\, \vel.turn.angle\, \vel.flow\, \trim.X\, \xsmooth\, \ysmooth\, \zsmooth\, \smooth.dx\, \smooth.dy\, \smooth.dz\, \smooth.d\, \smooth.vx\, \smooth.vy\, \smooth.vz\, \smooth.v\, \smooth.heading\, \heading.pi\, \smooth.pitch\, \pitch.perfect\, \turn.anglexysmooth\,  \turn.angleyzsmooth\, \turn.angle.smooth\, \vel.turn.angle.smooth\, \turn.anglexy\, \turn.angleyz\, \turn.angle\)
head(agg.data)

<!-- rnb-source-end -->

<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjQyLCJzdW1tYXJ5IjpbXX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJxMVhDelNVK3hZZjR6SGVwTWV4OUxpcHFLT01JZ3FkMllNOGVoSHlpQjVuTUppYUIyUEdvS1QweGoxU2lVb25uS3RPUjhvaGxSN3pSZVVSSXNwRUplKzhFcWtwUkhjdzM4ZG9kVzkzcmZ1dDlhMy8zdnUvZi92MS9mZTM5dDlwdGJ1Um9yc2lEb2VUeHNsSTRYSFNzaUlTSjJlMWNabWhzU0VPSjRNWGNWSTRHWnpDeUJvaTBwb3FJdlJFcThxSTJ1Z21Eb2Vmc0lwZkNhQWNuUnBNcFFlSktQWFJYYkhVd2l1SXl1U0lPY0pHTm5XVWxZVEtldE1wUVNnU3MrZEw4ZWF3MkNKcWVGSWtFNk9RRnIweVkrYndYOFVXWkZGdjlxeTVOblFXVDh6S3IyZnhKdkpLRzZnK05DNWpva2pCanViblAxR2diQjNDWVZNWjFESFpxQnZwci85VG9KTmVpVUJseEJaVVJZRmErZE5aYkZhQWZ5aWRMcGFxamNUN3JWaERIUGEzTytxajBVK1UvNzhEL3BHditwL2Q0VlJISklDazZBcENEcVZDZ2JmRHc5OHZWVU5KbWREV3MyUUdsQi81ZE8rbHhrYmdjKzMvcWZ2V0JncVA4L0FaZy9VWUx1OGZJV2VTTFc1QmhXWGMvb01iOWFCRWVaYnlvYlJtS0hNTVl4Q2l0YUJvUzJXUDVhSWtLQ09vdTJyWmRLSTQ1T1k3MDh0VnN3OGk5NzUrdktsZXgwSE9XaTRPczM0aWhlUi9sZzdaK2Q0VHlmcURXNXkxTVJ0QmZ1WlJjQlc1S0k1MGE0aHh3N0RCa1hTblNya2duR29PeW0wUFg1NWJlSVpVYVpkczJIT2FnWmk3dHVwUVB0WHljMExhaUprUkgxRWMvem5CcmlmQ2Znay9veTA3d1ZnN2xOUytKM0tha0c5RktsdWdYekVRK1F3eHRWKzU1K25ydGFSaDk5T2xIeU91WWJqYTF0cmxSeHpyK2VuaHZhY2NOVzBRL0srOUpQTFZjUDZUK1VDTlVib0lDMTRQR1dvTmRQSXI5WHFPT0RUTnd1cXl2YkZScHdPUkJxOXlqN2ZDbHlmQTJYYkttc3J3djhGVGp4WjlmUDhDOFBHZk4vMkNVU3BzOTY3TWV1VjFETU1wYkRqMUFzbGVBVXF5THdhbS85WU1ubHFtZTZwYzVvSDJnaGtHZWJIVnlORVUzbjJsNTFzUUdlM042UTk1L1ZnOWRRODlwZkEydS9LL0tDN2FtbGV1Qnl0YVQvZGRkTm9LTXgwNytqcHFVNUREdVp1RWIrSmNZSDJRK2xMZGhWa1k3dWVWOURnb0xlVDNGMmpzN3BKTFJCek5HdlcyL09zQU1uZUtFc3RvYlFjRXhRMXQ2MS8zQzZJdGJ4SHhxTGtSaXpPaitacDB6TlNwOEhjcUZYNWlQb0pValdSalk1ZHF1TVRMZjEvajhSNnl0YzkvV0ZmaER4bU0rTU5YWS93d1hGZlZIbDJEOXhTNHJtN1pkR0ozSWp5YVFjc3ZwU1hBdlpaM2V3NjZuSVhTQTZ0ckRiN3NnaWYyYWdrQkVVK3hPSEcyNmN6QUY0QUVSUmZ0dTVHUWlBUTI3SFcreElrRDE3UmNOeW5QRlpCRHZNNW9kVjhMZHR1djBWNWJoYUc0cjU5eG84LzNWcklyZmtXdWkvUXd5biszbmswbVMrVUMvNXdOVGN0VjhxTXFvOGlFTnB0MEJVMFcrYWN6NFlZenRVcXcvSXJkZTFpNU9WNVFRTC8vNExpOUY1VG1hTFErY0xxTTlWSDVkUVBWeUsyL1FsRTFrb0x2THh6SGJWdnB2aTY3RGdwb3JFdFdUOE9nOU80cU9TdlBEVkIrZExtMUwxTVB5aXNGN2JtWFYwTlJsVzNZN0tSeGYzbHp0SGQ4MEV3UzlaOHdoWE5xR0VxVW5xeEs2OG9XOVYrRzRJK2tGaWh5OVc1V2NCbnB2M1hXYnA0eDQvM1gzcnVySUQxZDFIOVpOTC9YM2NoWmd4d1ZvYzlIVWY5NWV6cXJyUkwxMzgxNW1uRWxDTEx3aVA0cU13VHJoMXRSb2VaZksyYnd1U2NqOVFhaTdVZ3RhOVNiYStUMStlbExvdTcwVFRjRm1jRzV6L3I4S3ZsWENreTl2MjR5d1ByMjdIeW51OHlUUk5LbFIwckg2TXNpU0YwUldaMU5KcmY1MXkwRHJLeDA5aUl6cHFYTm5VV3BJV1dzSm9XYm44ZjZpQis5OGxBSVhTcU9sTndYS2ZYOEx5cS9VOU0rT3k1SmpaU3JlK3BtMjJNS290aEMyRkc3bHN1L2s5NHhaMGxCR2xZWE4yNDJ2bkJxR1RpdURxU1RkZkRnRk45OUpUWk9IdXdMQkZ2OFczV0FXcGxnZmpFakNKelUwaThUOHU1Z2RaRnZlUEluVkdud0g1aWJ5YTl0ZGdDakR4SFYwYngwZm45by9wVDVUZG5nbk00c09ybk1tZitsNWxrWnNxMEJ5Njg5Y0haY3dsLzFwTS82T3dSVXBqK1kzYmh4VjBmYUNaR3BXd09xZllENFpIczgxanA3bHpUSUdvajNheUZqK2RVY0dGWnZzZGhIZWxkMDRuNHd4Q0ttdnNWRjdwRWJnSEJTZjRPSFJTU3kyZVQ2aHlWcHBZaGl3K0xkYXdiTXNQelNodDBxejZRZWcrU2xlaTY3NTJWQkNqMzIvb1dFVDVCVVMydE5kYnNQMTdpTXdyZUdTWkRjbmRscmE1MkM0WnEyOFJydER6SkI4T1pJWUhGMU1UVFpPbDROb1J1RDROTzlpMDdFRm1qWTFTamtQZGFBR3YwdnMzMjgxRkVjMmNKTnhUU3A1emV5c1cvNGhTUUNnV3hoNlZ6UisxQkFOdWJpV3dXTGQ1TEJYc2xPbDc2VmJCTEZiMDA4YW9MNU96YjBBcmVvOHczc20wK3BjN0F6Um5hVFp0NTljZGdZNG9SbUg3Y29CY0J0bXhLSGtqUDlTS0JRcy9SaGl4ZUc2Nlo3TlZqMm40TzZxeWZhcDN1d2tScTdXNFVjYTEvb21SYVQ3NlloUzliYzZSUzl1VE1lcVpqRzFDL2tPV0M0M2prS0IxOG5JTkNTMTBFVjZpeUdyc2o0S2Z2WE4wSlh2bWIzM29zbDBOUFkrVXBua0FmdHdXa09zUXdWTEQvOHRZcDFzM0l5eVZLSm5IckZYemJCWUgzOUV0L1BNbVQ4NGl2RnpWdnJZY2ppMVpCdTNXMHlickNtem9xY2llSWlSdjhiaE5RZlhYLzB2elI1eGZKckZNYS9FNjU2RHkxM3ZESzExclJCdS8xK3dYbVpUT2pLRzlLc1R2S0dONGtha2NFcm4wTWJQMTdBYmpnOW5sOVdsRkxOZ0owb1B4ZGNiTGNKRE5ZMXhMZm1uQmJsNTZyMmU4d3NHRm9oaU45M3JvZU0rOEl6UEtlNWRIS2NhUHovL2Y4cE9VY3lLUXdxT2tmcW9kT0pMWnZGRFNBdWsyUU5KVmtqU1hZNU9neTdvOFJtbFBBUUUzaWZFSXdLeGFnd1ZNMEhGUVZqYXNHWVdqQ21Gb3o2OWFkU2ZHaE1QelNSQUJySDJ4K2REa1ZqTlpIRFpUT0pGS1lmbllwT3N5TlMzL0ZKVlk3RHBqR0lhTHlFa0NBR2k4VkJUUkJDSmRrd0NWWmhqQ05pR1dHQzBNa0NOSEI1VkRCSklYaXlpZURKSm9Jbm0wQkxvQ3JtSlN1aEtHYUpBVFIwSkJmclRTeVJ5aWhEREtDeWZhbmU2RmlxTVY2ekVNbjhKK3lFU3BaaXl2Z09VV0pqdXVSSGtOeFVudWpwVzFrb21yTGloSzhvZVhJVjJDd2VFVDI5STc4Si9ONng4eTMzbmFGYTBZZkNvUkI5MlNJSWJuU3dsakJIWUFWd2FDeW15QmgrNUNvbk93a3N4WjRrVU9NeVI1ejc2SHY3YzVrNzlZMUdIT0RHcndFcTRsVnVBcTAzNWxKbThxVkxqc3Iwb3pIUlV5cExwM2hSMGZ1SnFpakowUnlKQVd3YWRudFFGRW1EaUJ3V2g0THFLWHF6NktoazdOSXcvRytxZEF4K3dnNEFBQT09In0= -->

<div data-pagedtable="false">
  <script data-pagedtable-source type="application/json">
{"columns":[{"label":[""],"name":["_rn_"],"type":[""],"align":["left"]},{"label":["Group.1"],"name":[1],"type":["fctr"],"align":["left"]},{"label":["Group.2"],"name":[2],"type":["fctr"],"align":["left"]},{"label":["Group.3"],"name":[3],"type":["fctr"],"align":["left"]},{"label":["Group.4"],"name":[4],"type":["fctr"],"align":["left"]},{"label":["X"],"name":[5],"type":["dbl"],"align":["right"]},{"label":["Y"],"name":[6],"type":["dbl"],"align":["right"]},{"label":["Z"],"name":[7],"type":["dbl"],"align":["right"]},{"label":["dx"],"name":[8],"type":["dbl"],"align":["right"]},{"label":["dy"],"name":[9],"type":["dbl"],"align":["right"]},{"label":["dz"],"name":[10],"type":["dbl"],"align":["right"]},{"label":["d"],"name":[11],"type":["dbl"],"align":["right"]},{"label":["vx"],"name":[12],"type":["dbl"],"align":["right"]},{"label":["vy"],"name":[13],"type":["dbl"],"align":["right"]},{"label":["vz"],"name":[14],"type":["dbl"],"align":["right"]},{"label":["v"],"name":[15],"type":["dbl"],"align":["right"]},{"label":["heading"],"name":[16],"type":["dbl"],"align":["right"]},{"label":["pitch"],"name":[17],"type":["dbl"],"align":["right"]},{"label":["vel.turn.angle"],"name":[18],"type":["dbl"],"align":["right"]},{"label":["vel.flow"],"name":[19],"type":["dbl"],"align":["right"]},{"label":["trim.X"],"name":[20],"type":["dbl"],"align":["right"]},{"label":["xsmooth"],"name":[21],"type":["dbl"],"align":["right"]},{"label":["ysmooth"],"name":[22],"type":["dbl"],"align":["right"]},{"label":["zsmooth"],"name":[23],"type":["dbl"],"align":["right"]},{"label":["smooth.dx"],"name":[24],"type":["dbl"],"align":["right"]},{"label":["smooth.dy"],"name":[25],"type":["dbl"],"align":["right"]},{"label":["smooth.dz"],"name":[26],"type":["dbl"],"align":["right"]},{"label":["smooth.d"],"name":[27],"type":["dbl"],"align":["right"]},{"label":["smooth.vx"],"name":[28],"type":["dbl"],"align":["right"]},{"label":["smooth.vy"],"name":[29],"type":["dbl"],"align":["right"]},{"label":["smooth.vz"],"name":[30],"type":["dbl"],"align":["right"]},{"label":["smooth.v"],"name":[31],"type":["dbl"],"align":["right"]},{"label":["smooth.heading"],"name":[32],"type":["dbl"],"align":["right"]},{"label":["heading.pi"],"name":[33],"type":["dbl"],"align":["right"]},{"label":["smooth.pitch"],"name":[34],"type":["dbl"],"align":["right"]},{"label":["pitch.perfect"],"name":[35],"type":["dbl"],"align":["right"]},{"label":["turn.anglexysmooth"],"name":[36],"type":["dbl"],"align":["right"]},{"label":["turn.angleyzsmooth"],"name":[37],"type":["dbl"],"align":["right"]},{"label":["turn.angle.smooth"],"name":[38],"type":["dbl"],"align":["right"]},{"label":["vel.turn.angle.smooth"],"name":[39],"type":["dbl"],"align":["right"]},{"label":["turn.anglexy"],"name":[40],"type":["dbl"],"align":["right"]},{"label":["turn.angleyz"],"name":[41],"type":["dbl"],"align":["right"]},{"label":["turn.angle"],"name":[42],"type":["dbl"],"align":["right"]}],"data":[{"1":"Absent","2":"No Flow","3":"No Chlorophyll","4":"Absent","5":"0.1235527","6":"0.1337729","7":"-0.09740029","8":"1.608727e-06","9":"-5.728831e-06","10":"-6.413881e-06","11":"0.001946183","12":"4.826180e-05","13":"-1.718649e-04","14":"-1.924164e-04","15":"0.05838549","16":"0.90081699","17":"-3.105156e-05","18":"NaN","19":"-1.718649e-04","20":"0.1980267","21":"0.1981879","22":"0.1337320","23":"-0.09731969","24":"-1.581962e-06","25":"4.043874e-07","26":"-2.028108e-07","27":"0.0014318703","28":"-4.745885e-05","29":"1.213162e-05","30":"-6.084323e-06","31":"0.04295611","32":"0.6052818","33":"34.68009","34":"0.016593382","35":"0.9507307","36":"1.0698333","37":"2.338288","38":"NA","39":"NaN","40":"0.5926008","41":"2.337177","42":"NaN","_rn_":"1"},{"1":"Present","2":"No Flow","3":"No Chlorophyll","4":"Absent","5":"0.1749057","6":"0.2540630","7":"-0.13281127","8":"1.718069e-06","9":"-8.913574e-07","10":"-8.193245e-07","11":"0.002296140","12":"5.154207e-05","13":"-2.674072e-05","14":"-2.457973e-05","15":"0.06888421","16":"0.08618563","17":"-4.771980e-03","18":"NaN","19":"-2.674072e-05","20":"0.1751942","21":"0.1750927","22":"0.2540871","23":"-0.13280325","24":"-8.039218e-08","25":"7.685792e-07","26":"5.051852e-07","27":"0.0010539158","28":"-2.411765e-06","29":"2.305738e-05","30":"1.515556e-05","31":"0.03161747","32":"0.3735067","33":"21.40035","34":"0.008368268","35":"0.4794664","36":"0.6799213","37":"2.199442","38":"NA","39":"NaN","40":"0.6792463","41":"2.199381","42":"NA","_rn_":"2"},{"1":"Absent","2":"Low Flow","3":"No Chlorophyll","4":"Absent","5":"0.2172230","6":"0.2113071","7":"-0.02661961","8":"5.514005e-05","9":"1.215657e-05","10":"-3.505455e-05","11":"0.001176612","12":"1.654202e-03","13":"3.646971e-04","14":"-1.051637e-03","15":"0.03529835","16":"0.20380899","17":"-4.365445e-03","18":"NaN","19":"6.003647e-01","20":"0.2242759","21":"0.2245250","22":"0.2112981","23":"-0.02654918","24":"1.014968e-05","25":"1.358930e-05","26":"-1.291988e-05","27":"0.0011343795","28":"3.044903e-04","29":"4.076789e-04","30":"-3.875964e-04","31":"0.03403138","32":"0.6024559","33":"34.51818","34":"-0.006895169","35":"-0.3950641","36":"0.8909402","37":"1.742401","38":"NA","39":"NaN","40":"0.7908344","41":"1.741914","42":"NaN","_rn_":"3"},{"1":"Present","2":"Low Flow","3":"No Chlorophyll","4":"Absent","5":"0.2463674","6":"0.2290490","7":"-0.14819377","8":"4.359172e-06","9":"3.473917e-06","10":"-4.085943e-06","11":"0.001658061","12":"1.307752e-04","13":"1.042175e-04","14":"-1.225783e-04","15":"0.04974183","16":"0.13201708","17":"1.382285e-03","18":"NaN","19":"6.001042e-01","20":"0.2463674","21":"0.2463746","22":"0.2290551","23":"-0.14820520","24":"-8.098481e-07","25":"-1.326771e-06","26":"1.499101e-06","27":"0.0009392311","28":"-2.429544e-05","29":"-3.980313e-05","30":"4.497302e-05","31":"0.02817693","32":"0.3744966","33":"21.45708","34":"0.017540857","35":"1.0050171","36":"0.8986935","37":"2.271329","38":"NA","39":"NaN","40":"0.8986803","41":"2.271160","42":"NaN","_rn_":"4"},{"1":"Present","2":"Medium Flow","3":"No Chlorophyll","4":"Absent","5":"0.1189775","6":"0.1903328","7":"-0.07280670","8":"-4.171669e-04","9":"-3.861320e-04","10":"1.592633e-04","11":"0.002491061","12":"-1.251501e-02","13":"-1.158396e-02","14":"4.777899e-03","15":"0.07473182","16":"0.22278653","17":"8.274403e-02","18":"88.03465","19":"2.988416e+00","20":"0.2477473","21":"0.2486219","22":"0.1901364","23":"-0.07281066","24":"4.001802e-05","25":"-8.423097e-05","26":"-5.129746e-05","27":"0.0026638941","28":"1.200541e-03","29":"-2.526929e-03","30":"-1.538924e-03","31":"0.07991682","32":"0.5463729","33":"31.30486","34":"0.106548984","35":"6.1048071","36":"1.0554007","37":"1.828581","38":"NA","39":"NaN","40":"0.7373135","41":"1.826133","42":"88.03465","_rn_":"5"},{"1":"Present","2":"High Flow","3":"No Chlorophyll","4":"Absent","5":"0.1841573","6":"0.2267781","7":"-0.12172648","8":"-1.279848e-06","9":"2.894029e-05","10":"-4.331525e-06","11":"0.001915890","12":"-3.839545e-05","13":"8.682088e-04","14":"-1.299458e-04","15":"0.05747669","16":"0.27038946","17":"7.438308e-04","18":"NaN","19":"5.900868e+00","20":"0.1940536","21":"0.1939477","22":"0.2267851","23":"-0.12169696","24":"-9.171460e-07","25":"8.722120e-07","26":"-1.708957e-06","27":"0.0011023690","28":"-2.751438e-05","29":"2.616636e-05","30":"-5.126871e-05","31":"0.03307107","32":"0.3934317","33":"22.54198","34":"-0.004385087","35":"-0.2512470","36":"0.7957331","37":"2.122974","38":"NA","39":"NaN","40":"0.7732648","41":"2.123274","42":"NaN","_rn_":"6"}],"options":{"columns":{"min":{},"max":[10],"total":[42]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
  </script>
</div>

<!-- rnb-frame-end -->

<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxudGFpbChhZ2cuZGF0YSlcbmBgYFxuYGBgIn0= -->

```r
```r
tail(agg.data)

<!-- rnb-source-end -->

<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjQyLCJzdW1tYXJ5IjpbXX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJxMVhDelNVK3hZZjR6SGVwTWV4OUxpcHFLT01VaFE2c3dkNTlDTGtFVDNPR0lPcE1jT1lNU2dwdlhHUFZLTFNDZWVxMDVGeVNLWEhmRkY1aElnaUtubm5sVWhOSWR6QmZCOHpyZTd0cm5XL3RiNzEzM3YvOTIrL3Z2LysxdjQ3cm5GYnJ1aW1pTVBocEhFeVVuaWN0S3lReE1sWmJscG1hR1NJdzhuZ2had1VUZ2FuTUxvR0M3V21DZ2s5NGFveXFqYTJpY1BoSjYyaVZ3d294NkFGMFJpQlFrcDliRmNrTmZjTXBERTVJbzZ3aVUwYlk4V2hzbFFHSlJCRll2YThLVlFPaXkya2hpVWltUnlGdFBDVkdUZUhIeEZaa0VXOTJiSG1Xak5ZUEJFcnY0SEZtOHdyYmFSNTBibCtrMFVLdG5RZjM4a0NaYXRnRHB2bVJ4dVhqYm1SSHZtZkFwVjR4UUtWRVZsUUZRWnE2Y3Rnc1ZuK3ZpRU1oa2lxTmhydnQySU5VZGpmN3FpUFJUOVovdjhPK0VlKzZuOTJoMU1kbFFDU3JGc2RmRGdGOHFuMmozNi9YQVhGcFFJYmorSVpVSGIwOC8xWEdwdUF6N1g3cCs0N2F5ZzR3Y09uRDlaanVOeC9CSjlOTXI4TjVSYXhCdzV0MG9OaTVWbktoMU9ib2RRaDFJOFFwUVdGV3l0NkxCWWxRaWxCM1VYTHVoUEZJYmZlbTF5cG5IMEl1VC95NlpaNkhRYzVaN0U0MU9xcEZKTDNSVHA0MXdjUEpQTVBibEhtcGl3RStabEh3Wlhub0RqUzdTRy9tNFlORHFTN2xjcjVZVFF6VUc1NzlPcjh3ck9rQ3Rza3c1NHpmb2laUzZzTzVYTXRQenU0alpnUi9nbkY4VjhRYkh2QzdaYncwOXV5NG8yMFEwanRleU9tQ2ZpV3BOSUYrdVVERWM4UkU3dFZlNSs5V1VjYWRqdFQ4aW44T29hcmJhMWRjZFNobnA4VzFudmFRZE1hd2YvYVN5SmZDK00vblErMGFLVkxzT0ROa0tIV1FDZS9RcS9ucUgzVExLd3VPeG9iZFRvUWFmQXNjMzhuZUhVU25HeW1ySzBJK3hzODlPaFJKdzRzQUMvZmVkTXZMaytCSGRTS3pOZWV4ekdjd3NiVEw1R3NsYUFrKzNKZyttL040S0Zsc3JmU2VSNW9MNWhoa0J0VGhSeEw1ajFRZXJFVmtkSGVrdmFJMTQvVlUvZndNd3B2aXd2L3ErS2liYmxsZXJDeTlVemZKY2R0TU5PaG82K2pOaGs1a3JOWjhEYldHVFlFcWkvVlhaaUo0WDVleFlpRmtnSitmNzdHbmk2NUJNVEJ0RkZ2Njc4T0luT25LTEdXcit1QXdOaWg3ZjNyZjBHMDVjM0RIemMzWW5HbU4xK1hqcDQ2RmY1T29jRlB6TWVRb3BGa1pPUmNCWmQ1ZVI5cTNEOUFsdmFGait2TGZTSGRMKzdJdFdnZkROZFZ1VmZYNEFNRmJxaGJOSjNja3dDUFo5RHpTdWp4Y0wvbC9kNUR6dWVnNU9DYVdvT3Z1K0dwblZxOGYvZ3pMRTZjVFJvejRDVWdnVkdGKzIvR0p5QUJEZnVjTG5OaXdTVTF4MVhLWXlWa0UyLzR0YnF0QTlzZDErbHZMRU5SM01nWDNOanp2WlhzZ2wrWjR5dzlqUExmcldlVDhWSzVnRDluUTlNS2xieklpa2d5b2MwNlRVR1RSZjdwYkpqaFRLMWlMTDhpdHg1V1RyWW41RE1lUER4aDV3a2wyUnF0RHgydllIMVVkc05BTldMYnIxQlloU1RqK3dzbWNOdFh1YTNQcW9OOE91dXk1Yk5RS0xtM1dzN1NZeU9VSFZ0aDVjM1VnN0tLNnZhY0sydWdzTkltZEhiaWhML2NPZG83UDJvbUN2dFBrTXc1UFF6RlNrOVhwM1psQ2ZzdnZmcVB4QllvZEtFMkt6aVA5dDk2SzFlUDZJbithKy9kblorV0p1eS9UTHJQbTI3a25FRzJpc0RyazdEL3FCNU9hcXVGL1hkcm5tWnNNWUlzUEtxLzJoVEIrdUYyWklqWlNQa01QdmRVaE41QWxDMnBaYTE2YzQyOFBqOXRTZVRkdnVrbUlETTQ5M21mVHdYL2FyNEpkV1N6QWRhMzUrWTczbU9lSXBJdVAxWTZ6bGdXVHVvS3oreHNNcjdEdjJIaGIybXBzdytaTVMxMTdpeEtEU2w5RFNuTTdBTFdSL3lvVlllREdWS3hwS1MrQ0trWGY5SDRuWnAyV2JHSmFxUWMzZE8zMnA1UUVNVVd3czdhZFZ6KzNiU09PVXZ5VTdHNnVIS3o4QVZUUzhGaFRRQ0RySU1IeDdqdXF6R3g4bUNYWDczVnQxVUhhQlh4WnBmU0E4RlJMZTBLSWZjdVZoZjVocWQvUXFVRy82R1pxZnk2Wm50WS9qRzhLb3FYeHU4UHlac3l2eWtMbk5LWWhhZVdPZkcvMWp3dlJiWTNZUG0xQjh5T2pmK3JudlJGZjJjMWpla0xwamR2M3RPUmRrUms2dGFDYWg4Z1hsbnVUN1RPM1NNTnNnYmlmRnJJV0g0MUI0ZlZXOHozazk0WG5ud1FCREdJaVhkUm9WdkVSaUNjMHQvb2JoNkJiREcrOFhGSmFnbWkyTEI0ejlvQlV5eS8xR0hYaXJNcHh5RnBxWjd6bm5tWmtNeUllWEF4L2pNazF0SmJVMXdmd0hXdVg4RTd3MFJJNnM3b3RiRkt4bkJOMjNtTmRvZVlVUDMyYUVCUlZSRTAyVGhjQzJZWVFmWG4rNWNjaVMzUXNMdFJ3SHVpQVRYNlgyZDdlYXFqT0xLNXE0cEpZczl2WkNQdnNJdUpCQUxaM01LcHZQZFJOZG1JaTIrdFhyeUxESFpLdHJxTWJXVGpTSDVyd2pGanpOL3hvWmU0UloxdllmOThTcDI5clJHeWh6VHozc3NqUmhBck1QMjBWY2tmN2xnWDJ4ZWY3VWNDQkpvbGoxbzhNVnczdzdQQm92ODgxRjA3MlQ3ZG5ZM1UyTjR1NEZoNVE4KzA2RHhYRFZteTVpN0hxQzJkY1VqNU5LWitBYzhldy9YT1VUajBKaDZCbHR3T21rQm5NWFJGeEUwNXNLRVJ1dkkwdS9kZEtvYWV4czdYT29NOGFBOUt0WS94VThIeXcxOHZYejhyTzRNc2xjQ3BWL3hsTXd6VzF5L3gvaUpEeGkrK1d0UzhyUjZHekY4UDZkYmRJZU1HYStvc3lSa29MbnpzdjBGSStkSDFSLzlMa2l1V1g2TWc3cjFnOVFkb3VldVpvYlcyRGRydERsUmZrTW1BcnR3aHphcEVLcnhOMElnSVd2VUMydmh4MWV5R014UDVaVVlxMVF6WUN2Tnp4c1YwRzhOZ1hVTmNhL1laWVg0dWFyOUh6NEtobGRWeCs4LzNrSEZmZVlibk5aZEt4b25HLzkvL24rSnpKSlBpUjBQblNEMVV1RUU0RmFHamlzTG9IRWRrVXpnMGRBajhkb3lTdGVGU21DeDBISFpEaVMwbzRTNGk4RjdCR0JXQ1VhR29taGNxQ3NMVWdqQzFJRXd0Q0IyaWZHa1VMenJUQnczQ244NmgrcUx6b1hDd0puSzRiQ2FSd3ZSaG9LSExqMHE5SjJaVk9RNmI3a2RFNHlVRUIvcXhXQnpVQkNGRW5BMFZZeFhHT1NLV0VTWUlrUlNnZ2N1akFnbUZJRWtUUVpJbWdpUk5vQ1ZRRmZIaWxWQVVzVVIvT2pxVWkvUW1sMGhsakNINjA5amVOQ3I2dFRVbWFoWXNuditrblJEeFVreVoyQ0dLYlV3WC93amltOHFUUFgwckMwRlRWcHowRmNYUHJnSmJlRERSOHp2Nm84RHZHei9oY3Q4WnF4VzlLQndLMFpzdGhPREdSbXN4Y3dTV1A0Zk9ZZ3FONFVjdmM3SVNZQ20yaEVDTnl4eDE3cVZQOWVVeWQra3ZIM1dBbTdnSXFJaFd1VW0wM3JoTEdjbHJseHlONlVObm9xZFVsa0h4cEtHdHBTcE1jaXhIb2orYmp0MGZGSVhTUUNLSHhhR2dlb3BVRmdPVmpGOGJodjhOT2gvT3U4UU9BQUE9In0= -->

<div data-pagedtable="false">
  <script data-pagedtable-source type="application/json">
{"columns":[{"label":[""],"name":["_rn_"],"type":[""],"align":["left"]},{"label":["Light"],"name":[1],"type":["fctr"],"align":["left"]},{"label":["Flow.rate"],"name":[2],"type":["fctr"],"align":["left"]},{"label":["Chlorophyll"],"name":[3],"type":["fctr"],"align":["left"]},{"label":["Guano"],"name":[4],"type":["fctr"],"align":["left"]},{"label":["X"],"name":[5],"type":["dbl"],"align":["right"]},{"label":["Y"],"name":[6],"type":["dbl"],"align":["right"]},{"label":["Z"],"name":[7],"type":["dbl"],"align":["right"]},{"label":["dx"],"name":[8],"type":["dbl"],"align":["right"]},{"label":["dy"],"name":[9],"type":["dbl"],"align":["right"]},{"label":["dz"],"name":[10],"type":["dbl"],"align":["right"]},{"label":["d"],"name":[11],"type":["dbl"],"align":["right"]},{"label":["vx"],"name":[12],"type":["dbl"],"align":["right"]},{"label":["vy"],"name":[13],"type":["dbl"],"align":["right"]},{"label":["vz"],"name":[14],"type":["dbl"],"align":["right"]},{"label":["v"],"name":[15],"type":["dbl"],"align":["right"]},{"label":["heading"],"name":[16],"type":["dbl"],"align":["right"]},{"label":["pitch"],"name":[17],"type":["dbl"],"align":["right"]},{"label":["vel.turn.angle"],"name":[18],"type":["dbl"],"align":["right"]},{"label":["vel.flow"],"name":[19],"type":["dbl"],"align":["right"]},{"label":["trim.X"],"name":[20],"type":["dbl"],"align":["right"]},{"label":["xsmooth"],"name":[21],"type":["dbl"],"align":["right"]},{"label":["ysmooth"],"name":[22],"type":["dbl"],"align":["right"]},{"label":["zsmooth"],"name":[23],"type":["dbl"],"align":["right"]},{"label":["smooth.dx"],"name":[24],"type":["dbl"],"align":["right"]},{"label":["smooth.dy"],"name":[25],"type":["dbl"],"align":["right"]},{"label":["smooth.dz"],"name":[26],"type":["dbl"],"align":["right"]},{"label":["smooth.d"],"name":[27],"type":["dbl"],"align":["right"]},{"label":["smooth.vx"],"name":[28],"type":["dbl"],"align":["right"]},{"label":["smooth.vy"],"name":[29],"type":["dbl"],"align":["right"]},{"label":["smooth.vz"],"name":[30],"type":["dbl"],"align":["right"]},{"label":["smooth.v"],"name":[31],"type":["dbl"],"align":["right"]},{"label":["smooth.heading"],"name":[32],"type":["dbl"],"align":["right"]},{"label":["heading.pi"],"name":[33],"type":["dbl"],"align":["right"]},{"label":["smooth.pitch"],"name":[34],"type":["dbl"],"align":["right"]},{"label":["pitch.perfect"],"name":[35],"type":["dbl"],"align":["right"]},{"label":["turn.anglexysmooth"],"name":[36],"type":["dbl"],"align":["right"]},{"label":["turn.angleyzsmooth"],"name":[37],"type":["dbl"],"align":["right"]},{"label":["turn.angle.smooth"],"name":[38],"type":["dbl"],"align":["right"]},{"label":["vel.turn.angle.smooth"],"name":[39],"type":["dbl"],"align":["right"]},{"label":["turn.anglexy"],"name":[40],"type":["dbl"],"align":["right"]},{"label":["turn.angleyz"],"name":[41],"type":["dbl"],"align":["right"]},{"label":["turn.angle"],"name":[42],"type":["dbl"],"align":["right"]}],"data":[{"1":"Absent","2":"No Flow","3":"No Chlorophyll","4":"Absent","5":"0.1235527","6":"0.1337729","7":"-0.09740029","8":"1.608727e-06","9":"-5.728831e-06","10":"-6.413881e-06","11":"0.001946183","12":"4.826180e-05","13":"-1.718649e-04","14":"-1.924164e-04","15":"0.05838549","16":"0.90081699","17":"-3.105156e-05","18":"NaN","19":"-1.718649e-04","20":"0.1980267","21":"0.1981879","22":"0.1337320","23":"-0.09731969","24":"-1.581962e-06","25":"4.043874e-07","26":"-2.028108e-07","27":"0.0014318703","28":"-4.745885e-05","29":"1.213162e-05","30":"-6.084323e-06","31":"0.04295611","32":"0.6052818","33":"34.68009","34":"0.016593382","35":"0.9507307","36":"1.0698333","37":"2.338288","38":"NA","39":"NaN","40":"0.5926008","41":"2.337177","42":"NaN","_rn_":"1"},{"1":"Present","2":"No Flow","3":"No Chlorophyll","4":"Absent","5":"0.1749057","6":"0.2540630","7":"-0.13281127","8":"1.718069e-06","9":"-8.913574e-07","10":"-8.193245e-07","11":"0.002296140","12":"5.154207e-05","13":"-2.674072e-05","14":"-2.457973e-05","15":"0.06888421","16":"0.08618563","17":"-4.771980e-03","18":"NaN","19":"-2.674072e-05","20":"0.1751942","21":"0.1750927","22":"0.2540871","23":"-0.13280325","24":"-8.039218e-08","25":"7.685792e-07","26":"5.051852e-07","27":"0.0010539158","28":"-2.411765e-06","29":"2.305738e-05","30":"1.515556e-05","31":"0.03161747","32":"0.3735067","33":"21.40035","34":"0.008368268","35":"0.4794664","36":"0.6799213","37":"2.199442","38":"NA","39":"NaN","40":"0.6792463","41":"2.199381","42":"NA","_rn_":"2"},{"1":"Absent","2":"Low Flow","3":"No Chlorophyll","4":"Absent","5":"0.2172230","6":"0.2113071","7":"-0.02661961","8":"5.514005e-05","9":"1.215657e-05","10":"-3.505455e-05","11":"0.001176612","12":"1.654202e-03","13":"3.646971e-04","14":"-1.051637e-03","15":"0.03529835","16":"0.20380899","17":"-4.365445e-03","18":"NaN","19":"6.003647e-01","20":"0.2242759","21":"0.2245250","22":"0.2112981","23":"-0.02654918","24":"1.014968e-05","25":"1.358930e-05","26":"-1.291988e-05","27":"0.0011343795","28":"3.044903e-04","29":"4.076789e-04","30":"-3.875964e-04","31":"0.03403138","32":"0.6024559","33":"34.51818","34":"-0.006895169","35":"-0.3950641","36":"0.8909402","37":"1.742401","38":"NA","39":"NaN","40":"0.7908344","41":"1.741914","42":"NaN","_rn_":"3"},{"1":"Present","2":"Low Flow","3":"No Chlorophyll","4":"Absent","5":"0.2463674","6":"0.2290490","7":"-0.14819377","8":"4.359172e-06","9":"3.473917e-06","10":"-4.085943e-06","11":"0.001658061","12":"1.307752e-04","13":"1.042175e-04","14":"-1.225783e-04","15":"0.04974183","16":"0.13201708","17":"1.382285e-03","18":"NaN","19":"6.001042e-01","20":"0.2463674","21":"0.2463746","22":"0.2290551","23":"-0.14820520","24":"-8.098481e-07","25":"-1.326771e-06","26":"1.499101e-06","27":"0.0009392311","28":"-2.429544e-05","29":"-3.980313e-05","30":"4.497302e-05","31":"0.02817693","32":"0.3744966","33":"21.45708","34":"0.017540857","35":"1.0050171","36":"0.8986935","37":"2.271329","38":"NA","39":"NaN","40":"0.8986803","41":"2.271160","42":"NaN","_rn_":"4"},{"1":"Present","2":"Medium Flow","3":"No Chlorophyll","4":"Absent","5":"0.1189775","6":"0.1903328","7":"-0.07280670","8":"-4.171669e-04","9":"-3.861320e-04","10":"1.592633e-04","11":"0.002491061","12":"-1.251501e-02","13":"-1.158396e-02","14":"4.777899e-03","15":"0.07473182","16":"0.22278653","17":"8.274403e-02","18":"88.03465","19":"2.988416e+00","20":"0.2477473","21":"0.2486219","22":"0.1901364","23":"-0.07281066","24":"4.001802e-05","25":"-8.423097e-05","26":"-5.129746e-05","27":"0.0026638941","28":"1.200541e-03","29":"-2.526929e-03","30":"-1.538924e-03","31":"0.07991682","32":"0.5463729","33":"31.30486","34":"0.106548984","35":"6.1048071","36":"1.0554007","37":"1.828581","38":"NA","39":"NaN","40":"0.7373135","41":"1.826133","42":"88.03465","_rn_":"5"},{"1":"Present","2":"High Flow","3":"No Chlorophyll","4":"Absent","5":"0.1841573","6":"0.2267781","7":"-0.12172648","8":"-1.279848e-06","9":"2.894029e-05","10":"-4.331525e-06","11":"0.001915890","12":"-3.839545e-05","13":"8.682088e-04","14":"-1.299458e-04","15":"0.05747669","16":"0.27038946","17":"7.438308e-04","18":"NaN","19":"5.900868e+00","20":"0.1940536","21":"0.1939477","22":"0.2267851","23":"-0.12169696","24":"-9.171460e-07","25":"8.722120e-07","26":"-1.708957e-06","27":"0.0011023690","28":"-2.751438e-05","29":"2.616636e-05","30":"-5.126871e-05","31":"0.03307107","32":"0.3934317","33":"22.54198","34":"-0.004385087","35":"-0.2512470","36":"0.7957331","37":"2.122974","38":"NA","39":"NaN","40":"0.7732648","41":"2.123274","42":"NaN","_rn_":"6"}],"options":{"columns":{"min":{},"max":[10],"total":[42]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
  </script>
</div>

<!-- rnb-frame-end -->

<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuTkFcbmBgYFxuYGBgIn0= -->

```r
```r
NA

<!-- rnb-source-end -->

<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjQyLCJzdW1tYXJ5IjpbXX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJwMVhDemlVNnhhZUdaZk1ZTnd5bGNxUmxGMHhFcUhiLzAzVWRKTmRXeGQ1ZG1XTW41a2FNNHd4alM0NzdVb2tPMnhPMnFNU0VabktVRUs3K2JkTENVbUZVaEtsaTB2YWJEb3VaOHNaelArYjRleHpPbWVlWjU1dnJmV3RkNjMzdTZ6L1dkOTNxenpzU0I0a0hBNm5obFBIRTNCcUduSVJwK215eVhiUjRrVTRuRHBCcnVGeDZqamk4Q2lTZXhuSmhmbnlVWGZZVGY0ZmRSZ2RsZjRxUUUwT0xJUTVRWEpKZjJSV1lWM3BIUVJ6QlFwdDBpWStQS0txUWpXWUhFWVFpc1RpK1RLWUFoNWZMbjM1TjB6d1NvelVSc01SaGhRUk5OQnNiand6T29lM1Q2RnF1ZkwyS2V2YUcyRWZkckMvc29tNGx1M0hVamJvckJZSitMQS9QR29iU2FNMjlGVkU1YVRrODZOL0pjSXFSTlVWRWNoeW9pNHNEby9QQzJDRmNEZ0txOTR3MzRsbVF3WHRpVFA2SSt5VjdmOEw0Zkc3cW5UR0dPR3ZPZFgvbkE1SEhyYUE0Z09TemJ5QlN5Q3ZlYVhoNTZNcmdQU0UxTE00cVIza0diQ0x2OXhhQUVwSS81eGhudlVKVkJpVVBmM0hkQnNNVjJLMHJDQmNyQTBxWnJlb1AzYXdBdVZ6Nk9Kdm5QcEJSVTRybmtkYUNxclluVVplZGxOQnBjWEZObCtuUEJTSDVIY04wcVBEeXBDOHY3VjVkWlo5Um9xYkkyWjdPVXhCaW1iL0puYUxKU0NGTXZ1THpnY0lDTkl2VzM1V3JJL2lvTTZUVzc0L2NhUWZha3pyNTFWQ0psQ09Zd3Q4YytsejZLbnRsMi92NHc5QjcvVVRTN214NXJLY1dKYTlsSmlCNVNNKzIrQitjaTVSMW1kelB2M2xnclhRSzFNVGplUXJIYkpXNC9lNDdldld5QWFLbkordGJyR0JmSXBuTFB6K29CakwxN29xZUwzeHJMM1Erd0x4cGovQ0pOQzF1cWdsVVE0L1F1S24zWVd0K0FBb3RIcVR0L1c3YUNpdFFHOXVaRTR5dGkrZTVsOGFjT1ZTNEZ5ZzlZY0RoQUNtZXpLVVhUb0h3THZpcGZCdEFXQTJrU1dOMTA0QjN4cVhGZnJ2bjJBNG9MYkwrZ2VqRzhCYUVsSDNhSThUSUtpekczZDhXQVVzSHI3YVUzSEVFOWhmangzb3pjQWhoQjBycFhEL05HeDlIa3VlbnQ5OE5BT2hTeTdKM0ZoeHdHcTVFN3cyZEJuaWVPeEUwdWFhRW1RZHhUVGpjY1FWS0VmWTVyOHRWdzNMNTVobC9UbW9haU5ZN05ZbGJ0N2xBdjNacmc3M01NMmd0bW5IanBjSFprTlZweHp5S0hwTG9jOXVYSHZ6dnU4d1hIcm93OThYeWpSQnpFOHNwdUdMYXBCdHlqSXAvU1ViM05DU2JQdDI5NjhnTzFtM3lDQW5CZHowSFNLQ09oakQxUmc2MjJlVXJnWDM1bGs1dmNqY0ExTE9iTlBmbEc4QXpnMzB2Nm1MaVFHcDlGTFRodXpqSUNiYWR5ZnZEUm5EWGRCZDN6UmpvQXZFWDhnSm1wNVBBZ0ZJVU1wR2kzU3c2RVlQb21QS0JJTFhsZTdJM1U4SWY3MkE0VzdxaE9Kb3poWGhMczQ1OEZBZmJ1VDMzMFlzWDdNbFpjMWJVdUJmN1Nkb3R1cklESmM5cG1uaGNPSmI3bnN4WEpsN1JvdUFLQUtWZC92NDFsZnZndktqaWU4VzJDd0M5eXNYelVwdmpBUWxuSDRUWFcvOGhEb3E4NG1qV3NjN2dNcDdUUHZneUdoUWZrckwySnpZQnU3WEROeVo3SmdQU3J4TkdvMUw2dVc0dXBNYkpyZU4xUjlGdTJmOWJLbTgvcDR2cTF0SWw5ZmZNWi91Mmk1NS9iMThkV1dxQkZUdHlZTmJlbUpCNWV5U3BTY01IbzdWMyt0NHZkVXhVNUc4NmY0SlhoOFRrT0kzUmRjWGhPVWpSZVlKcVdEZFphVHdkZ3crYytaaEJCbGdtRkhJU1ZnOTVMN3gweUlLSGtDcDg2U21MNnRGTWwvQjhuT1UxamdvZVhMdWc3OUhib1dPYkxmcWJOMUFsa215UGdsN0Uwc3hYRzNJdGtCQnFTdFU1TlN6d290ekdVcXpxRG5BZU8wSEhlbzF5bWVKdzZCTHRTSWRPK2Y3c3Q5MHROYTAyMFpodU9NWGhncmVIRHdJWFRwM0pLdXQ2RHJFak41d1didWtDVEs0ZkpwZmRaTXZpNlh1U2prclhRR0ZSUmhsdGdkdXcvYUY4WndteTJ6TkJSdlB6TXdPeDVXQnJacTNpc25KQjREWE5lK2UydkI5WUdkcmtVVkNtQTd3T0x6a1JsUGNZZ3luSWFDZENXOFFRTjNQS0RxL2E3cktidXIwVmEvZTd3ZDFkdS9kWFdsK0NYcTBzbURXaTl4YzJjQzd4dFBoNWk4eG5NV3NRdExPL1krQWdiRlAvMG00QnVvcE9tR1hXWndHUFppU2ZPaUpRUlRVSFc0V0dVQStnNUFwcDhQcS9tekMxbGV6ZWdpeDM1SUpkYnRueEwra3hFRFoyK2tmeGNSRGtGY1U1VUN5ekVEMldsdVU3MFdoUXJWbVB3WmE1WmRqK2JKdVM3SUxGNWdBOFozTVo3dEQ3NENVWEZkNlE1NDd1RTd2ajlUZjNRUWsybk1KYm9NU2tOWkxueFo3c2d2RE5TV3FlWHhRN3dMMXQ4eVNNa08yZ0hwdGQ0dTRLRXRRblJYTHlUb2JEcXJYZnVELzNMWVNQRTRSM3UyOGNCbXJveFYzN0paS2JHTnBUbFhOM0t0RGd6UW5CK052R204ZHBOa20vWVNqaTBwb3RpNkk0YjI3alRTYnVCYkgzc2tsV0w1ckZ5bFRwczFiQ0ZKNlpoMTNlcklEbkpKV1ZHemROeGVFNjZhK0VEV0dndWlDSGRNamtqOEFaa082U1VkRUxaWlBlKytOWDU1NVJ0THdEVVF2bDNRV2FNMXk1Y3VjT09CZGVHSW40V2N4Nk9nK1dqSm9jdzBVM205TFN3cWtZL2s2VDlQYTY5dm5nUGF5TEdHSDMwN3c4Wnh6bU43eHA2QU55aEY5VEhBQmI5ZHBtSE83ejRMV2Q3ZjEwNDFJV0Q1OGczNzN3MVJmR201d2kyZnp4aUNhMnZuZTY0NVFCNDJ3N3FwRGFsUWdEUjhuUGV0SDIwL0Ryekx0c0F5MlJIR0hSNzRiazVLL2RrUnhYL3M5bXZCZGFqdTRiejR4MFF3OC92UitSdnBnTTNqMGcvRU1uL2hLVU5zUzE3eEtrd3plNnRhejMvcFpndGEzRVZFSnY0YU9yZS9GRjcwN08vM2s2NVBkVkN2Tm9hbGQwQmFLKzY3U0NPdEphOVRycFRSOC9BYS9tZGFkTkx4TGhXV1o0TmovejFPMWorUXkvR0cwajV5UEdsM2xYUkhhcWhDSCt6Z3FueUdBMFNad1lodWxzU2FZd2VXaDdiQUhLdXhBQlUrRlFQQVJZVklJSnUxSDNYeFFreEJ6RTJKdVFzeE5pRFpSTEpqaHcrYjZvU1FDMkFJbUMrMFA1WTAxVlJETTUxSVpYRDhPU2wxcjJPbzcxcXRxQ3Zoc2Z5cktkNUlveUovSEU2QWhKb1dvcXZ0VlZPS29Sc1ZXaEJsQ3hodFE0bHFvWVp5RGNId0k0ZmdRd3ZFaDBDMGdLM1RWblNBcFZHb0FHMjNLRlg3S1c2UTdvbEFEWUw0dnpFUlAyM0JzejBTcTYxZWFDVkhkQ29PeEdhcktoTEhxSWFoTzZpaG5tbWdMUVpkTVVqcEYxYnRMNU1zdkpucC8wWjVjVjFFWWVvbzdiVEJNL1MvYWJKSVBROENnK3ZMbElYQWpyYlpLK0VtOEFBR2J4NVVISnd3LzdqVEdnZkg4Y1FhOVlPNHdHUjlySml1WXU5ZmFiamdCYnV5Qm9Lc1lOWlhrK2FNcDFjYy93elJocmgrYmk5NWFEUTdERzBaTGpTeGY5TWlhcVFGOE52YWVJTW10UVZRQlQ4QkEvVWhNSGdlMWpENGp2dndMTlByOTk5UU9BQUE9In0= -->

<div data-pagedtable="false">
  <script data-pagedtable-source type="application/json">
{"columns":[{"label":[""],"name":["_rn_"],"type":[""],"align":["left"]},{"label":["Light"],"name":[1],"type":["fctr"],"align":["left"]},{"label":["Flow.rate"],"name":[2],"type":["fctr"],"align":["left"]},{"label":["Chlorophyll"],"name":[3],"type":["fctr"],"align":["left"]},{"label":["Guano"],"name":[4],"type":["fctr"],"align":["left"]},{"label":["X"],"name":[5],"type":["dbl"],"align":["right"]},{"label":["Y"],"name":[6],"type":["dbl"],"align":["right"]},{"label":["Z"],"name":[7],"type":["dbl"],"align":["right"]},{"label":["dx"],"name":[8],"type":["dbl"],"align":["right"]},{"label":["dy"],"name":[9],"type":["dbl"],"align":["right"]},{"label":["dz"],"name":[10],"type":["dbl"],"align":["right"]},{"label":["d"],"name":[11],"type":["dbl"],"align":["right"]},{"label":["vx"],"name":[12],"type":["dbl"],"align":["right"]},{"label":["vy"],"name":[13],"type":["dbl"],"align":["right"]},{"label":["vz"],"name":[14],"type":["dbl"],"align":["right"]},{"label":["v"],"name":[15],"type":["dbl"],"align":["right"]},{"label":["heading"],"name":[16],"type":["dbl"],"align":["right"]},{"label":["pitch"],"name":[17],"type":["dbl"],"align":["right"]},{"label":["vel.turn.angle"],"name":[18],"type":["dbl"],"align":["right"]},{"label":["vel.flow"],"name":[19],"type":["dbl"],"align":["right"]},{"label":["trim.X"],"name":[20],"type":["dbl"],"align":["right"]},{"label":["xsmooth"],"name":[21],"type":["dbl"],"align":["right"]},{"label":["ysmooth"],"name":[22],"type":["dbl"],"align":["right"]},{"label":["zsmooth"],"name":[23],"type":["dbl"],"align":["right"]},{"label":["smooth.dx"],"name":[24],"type":["dbl"],"align":["right"]},{"label":["smooth.dy"],"name":[25],"type":["dbl"],"align":["right"]},{"label":["smooth.dz"],"name":[26],"type":["dbl"],"align":["right"]},{"label":["smooth.d"],"name":[27],"type":["dbl"],"align":["right"]},{"label":["smooth.vx"],"name":[28],"type":["dbl"],"align":["right"]},{"label":["smooth.vy"],"name":[29],"type":["dbl"],"align":["right"]},{"label":["smooth.vz"],"name":[30],"type":["dbl"],"align":["right"]},{"label":["smooth.v"],"name":[31],"type":["dbl"],"align":["right"]},{"label":["smooth.heading"],"name":[32],"type":["dbl"],"align":["right"]},{"label":["heading.pi"],"name":[33],"type":["dbl"],"align":["right"]},{"label":["smooth.pitch"],"name":[34],"type":["dbl"],"align":["right"]},{"label":["pitch.perfect"],"name":[35],"type":["dbl"],"align":["right"]},{"label":["turn.anglexysmooth"],"name":[36],"type":["dbl"],"align":["right"]},{"label":["turn.angleyzsmooth"],"name":[37],"type":["dbl"],"align":["right"]},{"label":["turn.angle.smooth"],"name":[38],"type":["dbl"],"align":["right"]},{"label":["vel.turn.angle.smooth"],"name":[39],"type":["dbl"],"align":["right"]},{"label":["turn.anglexy"],"name":[40],"type":["dbl"],"align":["right"]},{"label":["turn.angleyz"],"name":[41],"type":["dbl"],"align":["right"]},{"label":["turn.angle"],"name":[42],"type":["dbl"],"align":["right"]}],"data":[{"1":"Present","2":"Low Flow","3":"Medium Chlorophyll","4":"Absent","5":"0.15221170","6":"0.1568370","7":"-0.10134871","8":"1.577411e-05","9":"-4.928778e-05","10":"1.204844e-05","11":"0.0015952577","12":"4.732232e-04","13":"-1.478633e-03","14":"3.614533e-04","15":"0.04785773","16":"0.31361442","17":"0.030324144","18":"37.5901","19":"0.5985213665","20":"0.1978657","21":"0.1983819","22":"0.1569228","23":"-0.10109836","24":"1.364016e-06","25":"5.119795e-06","26":"1.611188e-07","27":"0.0021787896","28":"4.092047e-05","29":"1.535938e-04","30":"4.833563e-06","31":"0.06536369","32":"0.5190446","33":"29.73906","34":"0.05982274","35":"3.4275906","36":"1.0349740","37":"2.232942","38":"NA","39":"NaN","40":"0.8276935","41":"2.231930","42":"NaN","_rn_":"13"},{"1":"Absent","2":"No Flow","3":"High Chlorophyll","4":"Absent","5":"0.09721762","6":"0.2120333","7":"-0.09423699","8":"7.546483e-06","9":"-2.306558e-05","10":"1.083800e-05","11":"0.0005714935","12":"2.263945e-04","13":"-6.919674e-04","14":"3.251400e-04","15":"0.01714480","16":"0.17313149","17":"0.021117023","18":"NaN","19":"-0.0006919674","20":"0.2326041","21":"0.2326168","22":"0.2120315","23":"-0.09416852","24":"6.307023e-07","25":"2.172289e-06","26":"6.143826e-07","27":"0.0009030242","28":"1.892107e-05","29":"6.516866e-05","30":"1.843148e-05","31":"0.02709073","32":"0.4330522","33":"24.81206","34":"0.03897195","35":"2.2329280","36":"0.8683703","37":"2.123696","38":"NA","39":"NaN","40":"0.2802062","41":"2.123899","42":"NaN","_rn_":"14"},{"1":"Present","2":"No Flow","3":"High Chlorophyll","4":"Absent","5":"0.06847676","6":"0.2042626","7":"-0.15538134","8":"1.145505e-06","9":"7.180592e-06","10":"9.192796e-07","11":"0.0023592156","12":"3.436516e-05","13":"2.154178e-04","14":"2.757839e-05","15":"0.07077647","16":"0.03826398","17":"0.004088833","18":"NaN","19":"0.0002154178","20":"0.2071415","21":"0.2073984","22":"0.2042699","23":"-0.15535768","24":"-4.182393e-08","25":"6.599387e-07","26":"3.644015e-08","27":"0.0012833399","28":"-1.254718e-06","29":"1.979816e-05","30":"1.093204e-06","31":"0.03850020","32":"0.4225662","33":"24.21126","34":"0.01401099","35":"0.8027708","36":"0.8941968","37":"2.452621","38":"NA","39":"NaN","40":"0.2576955","41":"2.452659","42":"NaN","_rn_":"15"},{"1":"Present","2":"No Flow","3":"No Chlorophyll","4":"Present","5":"0.09401570","6":"0.2164279","7":"-0.14171608","8":"5.291769e-06","9":"-1.196172e-05","10":"4.148432e-07","11":"0.0026085781","12":"1.587531e-04","13":"-3.588515e-04","14":"1.244530e-05","15":"0.07825734","16":"0.02927771","17":"0.000285444","18":"NaN","19":"-0.0003588515","20":"0.1937621","21":"0.1939996","22":"0.2164265","23":"-0.14168079","24":"5.388532e-07","25":"1.116289e-07","26":"1.027629e-09","27":"0.0020362790","28":"1.616560e-05","29":"3.348866e-06","30":"3.082887e-08","31":"0.06108837","32":"0.3076521","33":"17.62717","34":"0.01174478","35":"0.6729264","36":"0.8201539","37":"2.285975","38":"NA","39":"NaN","40":"0.3423207","41":"2.286152","42":"NaN","_rn_":"16"},{"1":"Present","2":"Low Flow","3":"No Chlorophyll","4":"Present","5":"0.15658511","6":"0.2454205","7":"-0.13861711","8":"1.052136e-05","9":"-2.551921e-05","10":"1.253593e-07","11":"0.0024261748","12":"3.156408e-04","13":"-7.655763e-04","14":"3.760780e-06","15":"0.07278524","16":"0.04155562","17":"0.005098154","18":"NaN","19":"0.5992344237","20":"0.1595756","21":"0.1592439","22":"0.2454443","23":"-0.13853657","24":"1.291970e-07","25":"6.208975e-07","26":"-2.709200e-07","27":"0.0018257519","28":"3.875910e-06","29":"1.862693e-05","30":"-8.127599e-06","31":"0.05477256","32":"0.3013247","33":"17.26463","34":"0.01633586","35":"0.9359759","36":"0.6339136","37":"2.197604","38":"NA","39":"NaN","40":"0.6266915","41":"2.197898","42":"NaN","_rn_":"17"},{"1":"Present","2":"Medium Flow","3":"No Chlorophyll","4":"Present","5":"0.21148036","6":"0.2276804","7":"-0.12490453","8":"-1.166576e-06","9":"3.867252e-08","10":"6.773112e-07","11":"0.0027867616","12":"-3.499729e-05","13":"1.160175e-06","14":"2.031934e-05","15":"0.08360285","16":"0.01715240","17":"-0.004465537","18":"NaN","19":"3.0000011602","20":"0.2114804","21":"0.2114821","22":"0.2276540","23":"-0.12491424","24":"-8.550626e-07","25":"-1.912952e-06","26":"1.679022e-07","27":"0.0014951767","28":"-2.565188e-05","29":"-5.738855e-05","30":"5.037067e-06","31":"0.04485530","32":"0.2756020","33":"15.79083","34":"0.00242503","35":"0.1389440","36":"0.8092933","37":"2.158262","38":"NA","39":"NaN","40":"0.8091476","41":"2.158102","42":"NaN","_rn_":"18"}],"options":{"columns":{"min":{},"max":[10],"total":[42]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
  </script>
</div>

<!-- rnb-frame-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->


Circular stats for angle data
Total angles

<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyMgY2FsY3VsYXRpbmcgdmFyaWFuY2Ugb2YgdGhlIHZlY3RvciBmcm9tIGNpcmN1bGFyIGRhdGFcbnZhcihjaXJjKVxuXG5gYGBcbmBgYCJ9 -->

```r
```r
## calculating variance of the vector from circular data
var(circ)

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiWzFdIE5BXG4ifQ== -->

[1] NA

<!-- rnb-output-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->


Sub-setting factors into separate data sets to calculate mean vectors and dispersion for angle data

<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxubGlicmFyeShjaXJjdWxhcilcblxuYGBgXG5gYGAifQ== -->

```r
```r
library(circular)

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiUGFja2FnZSAnY2lyY3VsYXInLCAwLjQtOTMgKDIwMTctMDYtMjYpLiBUeXBlICdoZWxwKENpcmN1bGFyKScgZm9yIHN1bW1hcnkgaW5mb3JtYXRpb24uIFxuIFBsZWFzZSByZXBvcnQgYW55IGJ1ZyBvciBjb21tZW50cyB0byBDbGF1ZGlvIEFnb3N0aW5lbGxpIDxjbGF1ZGlvLmFnb3N0aW5lbGxpQHVuaXRuLml0PlxuXG5BdHRhY2hpbmcgcGFja2FnZTogw6LigqzLnGNpcmN1bGFyw6LigqzihKJcblxuVGhlIGZvbGxvd2luZyBvYmplY3RzIGFyZSBtYXNrZWQgZnJvbSDDouKCrMuccGFja2FnZTpzdGF0c8Oi4oKs4oSiOlxuXG4gICAgc2QsIHZhclxuIn0= -->

Package ‘circular’, 0.4-93 (2017-06-26). Type ‘help(Circular)’ for summary information. Please report any bug or comments to Claudio Agostinelli claudio.agostinelli@unitn.it

Attaching package: ‘circular’

The following objects are masked from ‘package:stats’:

sd, var

<!-- rnb-output-end -->

<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiAgICMjICBMaWdodCBPbiwgTk8gRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5MTk48LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTE5OIDwtIExOTltMTk4kRmxvdy5yYXRlPT1cXE5vIEZsb3dcXCxdXG5MTk4gPC0gTE5OW0xOTiRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkxOTiA8LSBMTk5bTE5OJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTE5MPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxOTCA8LSBMTkxbTE5MJEZsb3cucmF0ZT09XFxObyBGbG93XFwsXVxuTE5MIDwtIExOTFtMTkwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuTE5MIDwtIExOTFtMTkwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MTk08LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTE5NIDwtIExOTVtMTk0kRmxvdy5yYXRlPT1cXE5vIEZsb3dcXCxdXG5MTk0gPC0gTE5NW0xOTSRDaGxvcm9waHlsbD09XFxNZWRpdW0gQ2hsb3JvcGh5bGxcXCxdXG5MTk0gPC0gTE5NW0xOTSRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxOSDwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTkggPC0gTE5IW0xOSCRGbG93LnJhdGU9PVxcTm8gRmxvd1xcLF1cbkxOSCA8LSBMTkhbTE5IJENobG9yb3BoeWxsPT1cXEhpZ2ggQ2hsb3JvcGh5bGxcXCxdXG5MTkggPC0gTE5IW0xOSCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxORzwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTkcgPC0gTE5HW0xORyRGbG93LnJhdGU9PVxcTm8gRmxvd1xcLF1cbkxORyA8LSBMTkdbTE5HJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuTE5HIDwtIExOR1tMTkckR3Vhbm89PVxcUHJlc2VudFxcLF1cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiMjICAgIExpZ2h0cyBPbiwgTG93IEZsb3dcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbkxMTjwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTE4gPC0gTExOW0xMTiRGbG93LnJhdGU9PVxcTG93IEZsb3dcXCxdXG5MTE4gPC0gTExOW0xMTiRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkxMTiA8LSBMTE5bTExOJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTExMPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxMTCA8LSBMTExbTExMJEZsb3cucmF0ZT09XFxMb3cgRmxvd1xcLF1cbkxMTCA8LSBMTExbTExMJENobG9yb3BoeWxsPT1cXExvdyBDaGxvcm9waHlsbFxcLF1cbkxMTCA8LSBMTExbTExMJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTExNPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxMTSA8LSBMTE1bTExNJEZsb3cucmF0ZT09XFxMb3cgRmxvd1xcLF1cbkxMTSA8LSBMTE1bTExNJENobG9yb3BoeWxsPT1cXE1lZGl1bSBDaGxvcm9waHlsbFxcLF1cbkxMTSA8LSBMTE1bTExNJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTExIPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxMSCA8LSBMTEhbTExIJEZsb3cucmF0ZT09XFxMb3cgRmxvd1xcLF1cbkxMSCA8LSBMTEhbTExIJENobG9yb3BoeWxsPT1cXEhpZ2ggQ2hsb3JvcGh5bGxcXCxdXG5MTEggPC0gTExIW0xMSCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxMRzwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTEcgPC0gTExHW0xMRyRGbG93LnJhdGU9PVxcTG93IEZsb3dcXCxdXG5MTEcgPC0gTExHW0xMRyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkxMRyA8LSBMTEdbTExHJEd1YW5vPT1cXFByZXNlbnRcXCxdXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuIyMgICAgTGlnaHQgT24sIE1lZGl1bSBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuTE1OPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxNTiA8LSBMTU5bTE1OJEZsb3cucmF0ZT09XFxNZWRpdW0gRmxvd1xcLF1cbkxNTiA8LSBMTU5bTE1OJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuTE1OIDwtIExNTltMTU4kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MTUw8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTE1MIDwtIExNTFtMTUwkRmxvdy5yYXRlPT1cXE1lZGl1bSBGbG93XFwsXVxuTE1MIDwtIExNTFtMTUwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuTE1MIDwtIExNTFtMTUwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MTU08LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTE1NIDwtIExNTVtMTU0kRmxvdy5yYXRlPT1cXE1lZGl1bSBGbG93XFwsXVxuTE1NIDwtIExNTVtMTU0kQ2hsb3JvcGh5bGw9PVxcTWVkaXVtIENobG9yb3BoeWxsXFwsXVxuTE1NIDwtIExNTVtMTU0kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MTUg8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTE1IIDwtIExNSFtMTUgkRmxvdy5yYXRlPT1cXE1lZGl1bSBGbG93XFwsXVxuTE1IIDwtIExNSFtMTUgkQ2hsb3JvcGh5bGw9PVxcSGlnaCBDaGxvcm9waHlsbFxcLF1cbkxNSCA8LSBMTUhbTE1IJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTE1HPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxNRyA8LSBMTUdbTE1HJEZsb3cucmF0ZT09XFxNZWRpdW0gRmxvd1xcLF1cbkxNRyA8LSBMTUdbTE1HJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuTE1HIDwtIExNR1tMTUckR3Vhbm89PVxcUHJlc2VudFxcLF1cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuIyMjICAgIExpZ2h0IE9uLCBIaWdoIEZsb3dcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuTEhOPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxITiA8LSBMSE5bTEhOJEZsb3cucmF0ZT09XFxIaWdoIEZsb3dcXCxdXG5MSE4gPC0gTEhOW0xITiRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkxITiA8LSBMSE5bTEhOJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTEhMPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxITCA8LSBMSExbTEhMJEZsb3cucmF0ZT09XFxIaWdoIEZsb3dcXCxdXG5MSEwgPC0gTEhMW0xITCRDaGxvcm9waHlsbD09XFxMb3cgQ2hsb3JvcGh5bGxcXCxdXG5MSEwgPC0gTEhMW0xITCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxITTwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MSE0gPC0gTEhNW0xITSRGbG93LnJhdGU9PVxcSGlnaCBGbG93XFwsXVxuTEhNIDwtIExITVtMSE0kQ2hsb3JvcGh5bGw9PVxcTWVkaXVtIENobG9yb3BoeWxsXFwsXVxuTEhNIDwtIExITVtMSE0kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MSEg8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTEhIIDwtIExISFtMSEgkRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkxISCA8LSBMSEhbTEhIJENobG9yb3BoeWxsPT1cXEhpZ2ggQ2hsb3JvcGh5bGxcXCxdXG5MSEggPC0gTEhIW0xISCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxIRzwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MSEcgPC0gTEhHW0xIRyRGbG93LnJhdGU9PVxcSGlnaCBGbG93XFwsXVxuTEhHIDwtIExIR1tMSEckQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5MSEcgPC0gTEhHW0xIRyRHdWFubz09XFxQcmVzZW50XFwsXVxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5cbiMjIyAgICBMaWdodCBPbiwgRXh0cmVtZSBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbkxFTjwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MRU4gPC0gTEVOW0xFTiRGbG93LnJhdGU9PVxcRXh0cmVtZSBGbG93XFwsXVxuTEVOIDwtIExFTltMRU4kQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5MRU4gPC0gTEVOW0xFTiRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxFTDwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MRUwgPC0gTEVMW0xFTCRGbG93LnJhdGU9PVxcRXh0cmVtZSBGbG93XFwsXVxuTEVMIDwtIExFTFtMRUwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuTEVMIDwtIExFTFtMRUwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MRU08LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTEVNIDwtIExFTVtMRU0kRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkxFTSA8LSBMRU1bTEVNJENobG9yb3BoeWxsPT1cXE1lZGl1bSBDaGxvcm9waHlsbFxcLF1cbkxFTSA8LSBMRU1bTEVNJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTEVIPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxFSCA8LSBMRUhbTEVIJEZsb3cucmF0ZT09XFxFeHRyZW1lIEZsb3dcXCxdXG5MRUggPC0gTEVIW0xFSCRDaGxvcm9waHlsbD09XFxIaWdoIENobG9yb3BoeWxsXFwsXVxuTEVIIDwtIExFSFtMRUgkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MRUc8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTEVHIDwtIExFR1tMRUckRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkxFRyA8LSBMRUdbTEVHJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuTEVHIDwtIExFR1tMRUckR3Vhbm89PVxcUHJlc2VudFxcLF1cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiAgICMjICBMaWdodCBPZmYsIE5PIEZsb3dcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuRE5OPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE5OIDwtIEROTltETk4kRmxvdy5yYXRlPT1cXE5vIEZsb3dcXCxdXG5ETk4gPC0gRE5OW0ROTiRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkROTiA8LSBETk5bRE5OJEd1YW5vPT1cXEFic2VudFxcLF1cblxuRE5MPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE5MIDwtIEROTFtETkwkRmxvdy5yYXRlPT1cXE5vIEZsb3dcXCxdXG5ETkwgPC0gRE5MW0ROTCRDaGxvcm9waHlsbD09XFxMb3cgQ2hsb3JvcGh5bGxcXCxdXG5ETkwgPC0gRE5MW0ROTCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkROTTwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkROTSA8LSBETk1bRE5NJEZsb3cucmF0ZT09XFxObyBGbG93XFwsXVxuRE5NIDwtIEROTVtETk0kQ2hsb3JvcGh5bGw9PVxcTWVkaXVtIENobG9yb3BoeWxsXFwsXVxuRE5NIDwtIEROTVtETk0kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETkggPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE5IIDwtIEROSFtETkgkRmxvdy5yYXRlPT1cXE5vIEZsb3dcXCxdXG5ETkggPC0gRE5IW0ROSCRDaGxvcm9waHlsbD09XFxIaWdoIENobG9yb3BoeWxsXFwsXVxuRE5IIDwtIEROSFtETkgkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETkc8LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ETkcgPC0gRE5HW0RORyRGbG93LnJhdGU9PVxcTm8gRmxvd1xcLF1cbkRORyA8LSBETkdbRE5HJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuRE5HIDwtIEROR1tETkckR3Vhbm89PVxcUHJlc2VudFxcLF1cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiMjICAgIExpZ2h0cyBPZmYsIExvdyBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5ETE4gPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRExOIDwtIERMTltETE4kRmxvdy5yYXRlPT1cXExvdyBGbG93XFwsXVxuRExOIDwtIERMTltETE4kQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5ETE4gPC0gRExOW0RMTiRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkRMTCA8LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ETEwgPC0gRExMW0RMTCRGbG93LnJhdGU9PVxcTG93IEZsb3dcXCxdXG5ETEwgPC0gRExMW0RMTCRDaGxvcm9waHlsbD09XFxMb3cgQ2hsb3JvcGh5bGxcXCxdXG5ETEwgPC0gRExMW0RMTCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkRMTSA8LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ETE0gPC0gRExNW0RMTSRGbG93LnJhdGU9PVxcTG93IEZsb3dcXCxdXG5ETE0gPC0gRExNW0RMTSRDaGxvcm9waHlsbD09XFxNZWRpdW0gQ2hsb3JvcGh5bGxcXCxdXG5ETE0gPC0gRExNW0RMTSRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkRMSCA8LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ETEggPC0gRExIW0RMSCRGbG93LnJhdGU9PVxcTG93IEZsb3dcXCxdXG5ETEggPC0gRExIW0RMSCRDaGxvcm9waHlsbD09XFxIaWdoIENobG9yb3BoeWxsXFwsXVxuRExIIDwtIERMSFtETEgkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETEcgPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRExHIDwtIERMR1tETEckRmxvdy5yYXRlPT1cXExvdyBGbG93XFwsXVxuRExHIDwtIERMR1tETEckQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5ETEcgPC0gRExHW0RMRyRHdWFubz09XFxQcmVzZW50XFwsXVxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiMjICAgIExpZ2h0IE9mZiwgTWVkaXVtIEZsb3dcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5ETU4gPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE1OIDwtIERNTltETU4kRmxvdy5yYXRlPT1cXE1lZGl1bSBGbG93XFwsXVxuRE1OIDwtIERNTltETU4kQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5ETU4gPC0gRE1OW0RNTiRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkRNTCA8LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ETUwgPC0gRE1MW0RNTCRGbG93LnJhdGU9PVxcTWVkaXVtIEZsb3dcXCxdXG5ETUwgPC0gRE1MW0RNTCRDaGxvcm9waHlsbD09XFxMb3cgQ2hsb3JvcGh5bGxcXCxdXG5ETUwgPC0gRE1MW0RNTCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkRNTSA8LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ETU0gPC0gRE1NW0RNTSRGbG93LnJhdGU9PVxcTWVkaXVtIEZsb3dcXCxdXG5ETU0gPC0gRE1NW0RNTSRDaGxvcm9waHlsbD09XFxNZWRpdW0gQ2hsb3JvcGh5bGxcXCxdXG5ETU0gPC0gRE1NW0RNTSRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkRNSCA8LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ETUggPC0gRE1IW0RNSCRGbG93LnJhdGU9PVxcTWVkaXVtIEZsb3dcXCxdXG5ETUggPC0gRE1IW0RNSCRDaGxvcm9waHlsbD09XFxIaWdoIENobG9yb3BoeWxsXFwsXVxuRE1IIDwtIERNSFtETUgkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETUcgPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE1HIDwtIERNR1tETUckRmxvdy5yYXRlPT1cXE1lZGl1bSBGbG93XFwsXVxuRE1HIDwtIERNR1tETUckQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5ETUcgPC0gRE1HW0RNRyRHdWFubz09XFxQcmVzZW50XFwsXVxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4jIyMgICAgTGlnaHQgT2ZmLCBIaWdoIEZsb3dcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuREhOPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREhOIDwtIERITltESE4kRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkRITiA8LSBESE5bREhOJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuREhOIDwtIERITltESE4kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ESEw8LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ESEwgPC0gREhMW0RITCRGbG93LnJhdGU9PVxcSGlnaCBGbG93XFwsXVxuREhMIDwtIERITFtESEwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuREhMIDwtIERITFtESEwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ESE08LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ESE0gPC0gREhNW0RITSRGbG93LnJhdGU9PVxcSGlnaCBGbG93XFwsXVxuREhNIDwtIERITVtESE0kQ2hsb3JvcGh5bGw9PVxcTWVkaXVtIENobG9yb3BoeWxsXFwsXVxuREhNIDwtIERITVtESE0kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ESEg8LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ESEggPC0gREhIW0RISCRGbG93LnJhdGU9PVxcSGlnaCBGbG93XFwsXVxuREhIIDwtIERISFtESEgkQ2hsb3JvcGh5bGw9PVxcSGlnaCBDaGxvcm9waHlsbFxcLF1cbkRISCA8LSBESEhbREhIJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREhHPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREhHIDwtIERIR1tESEckRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkRIRyA8LSBESEdbREhHJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuREhHIDwtIERIR1tESEckR3Vhbm89PVxcUHJlc2VudFxcLF1cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuXG4jIyMgICAgTGlnaHQgT2ZmLCBFeHRyZW1lIEZsb3dcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuREVOPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREVOIDwtIERFTltERU4kRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkRFTiA8LSBERU5bREVOJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuREVOIDwtIERFTltERU4kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ERUw8LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ERUwgPC0gREVMW0RFTCRGbG93LnJhdGU9PVxcRXh0cmVtZSBGbG93XFwsXVxuREVMIDwtIERFTFtERUwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuREVMIDwtIERFTFtERUwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ERU08LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ERU0gPC0gREVNW0RFTSRGbG93LnJhdGU9PVxcRXh0cmVtZSBGbG93XFwsXVxuREVNIDwtIERFTVtERU0kQ2hsb3JvcGh5bGw9PVxcTWVkaXVtIENobG9yb3BoeWxsXFwsXVxuREVNIDwtIERFTVtERU0kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ERUg8LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ERUggPC0gREVIW0RFSCRGbG93LnJhdGU9PVxcRXh0cmVtZSBGbG93XFwsXVxuREVIIDwtIERFSFtERUgkQ2hsb3JvcGh5bGw9PVxcSGlnaCBDaGxvcm9waHlsbFxcLF1cbkRFSCA8LSBERUhbREVIJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREVHPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREVHIDwtIERFR1tERUckRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkRFRyA8LSBERUdbREVHJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuREVHIDwtIERFR1tERUckR3Vhbm89PVxcUHJlc2VudFxcLF1cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbiAgIyMjIHNldHRpbmcgZGF0YSBhcyBjaXJjdWxhclxuIyMgICBMaWdodHMgb25cblxuTE5OIDwtIGNpcmN1bGFyKExOTiR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjYXNzaWduIExOTiBzdWJzZXQgdG8gXFxMTk5cXCB2YXJpYWJsZVxuTE5MIDwtIGNpcmN1bGFyKExOTCR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTE5MXG5MTk0gPC0gY2lyY3VsYXIoTE5NJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTk1cbkxOSCA8LSBjaXJjdWxhcihMTkgkdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xOSFxuTE5HIDwtIGNpcmN1bGFyKExORyR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTE5HXG5cbkxMTiA8LSBjaXJjdWxhcihMTE4kdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xMTlxuTExMIDwtIGNpcmN1bGFyKExMTCR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTExMXG5MTE0gPC0gY2lyY3VsYXIoTExNJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTE1cbkxMSCA8LSBjaXJjdWxhcihMTEgkdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xMSFxuTExHIDwtIGNpcmN1bGFyKExMRyR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTExHXG5cbkxNTiA8LSBjaXJjdWxhcihMTU4kdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xNTlxuTE1MIDwtIGNpcmN1bGFyKExNTCR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTE1MXG5MTU0gPC0gY2lyY3VsYXIoTE1NJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTU1cbkxNSCA8LSBjaXJjdWxhcihMTUgkdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xNSFxuTE1HIDwtIGNpcmN1bGFyKExNRyR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTE1HXG5cbkxITiA8LSBjaXJjdWxhcihMSE4kdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xITlxuTEhMIDwtIGNpcmN1bGFyKExITCR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTEhMXG5MSE0gPC0gY2lyY3VsYXIoTEhNJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMSE1cbkxISCA8LSBjaXJjdWxhcihMSEgkdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xISFxuTEhHIDwtIGNpcmN1bGFyKExIRyR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTEhHXG5cbkxFTiA8LSBjaXJjdWxhcihMRU4kdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xFTlxuTEVMIDwtIGNpcmN1bGFyKExFTCR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTEVMXG5MRU0gPC0gY2lyY3VsYXIoTEVNJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMRU1cbkxFSCA8LSBjaXJjdWxhcihMRUgkdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xFSFxuTEVHIDwtIGNpcmN1bGFyKExFRyR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTEVHXG5cbiMjIyMjIyMjIyMjIyAgTGlnaHRzIE9mZlxuXG5ETk4gPC0gY2lyY3VsYXIoRE5OJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETk5cbkROTCA8LSBjaXJjdWxhcihETkwkdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0ROTFxuRE5NIDwtIGNpcmN1bGFyKEROTSR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRE5NXG5ETkggPC0gY2lyY3VsYXIoRE5IJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETkhcbkRORyA8LSBjaXJjdWxhcihETkckdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0ROR1xuXG5ETE4gPC0gY2lyY3VsYXIoRExOJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETE5cbkRMTCA8LSBjaXJjdWxhcihETEwkdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RMTFxuRExNIDwtIGNpcmN1bGFyKERMTSR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRExNXG5ETEggPC0gY2lyY3VsYXIoRExIJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETEhcbkRMRyA8LSBjaXJjdWxhcihETEckdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RMR1xuXG5ETU4gPC0gY2lyY3VsYXIoRE1OJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETU5cbkRNTCA8LSBjaXJjdWxhcihETUwkdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RNTFxuRE1NIDwtIGNpcmN1bGFyKERNTSR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRE1NXG5ETUggPC0gY2lyY3VsYXIoRE1IJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETUhcbkRNRyA8LSBjaXJjdWxhcihETUckdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RNR1xuXG5ESE4gPC0gY2lyY3VsYXIoREhOJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNESE5cbkRITCA8LSBjaXJjdWxhcihESEwkdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RITFxuREhNIDwtIGNpcmN1bGFyKERITSR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjREhNXG5ESEggPC0gY2lyY3VsYXIoREhIJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNESEhcbkRIRyA8LSBjaXJjdWxhcihESEckdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RIR1xuXG5ERU4gPC0gY2lyY3VsYXIoREVOJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNERU5cbkRFTCA8LSBjaXJjdWxhcihERUwkdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RFTFxuREVNIDwtIGNpcmN1bGFyKERFTSR0dXJuLmFuZ2xlLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjREVNXG5ERUggPC0gY2lyY3VsYXIoREVIJHR1cm4uYW5nbGUsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNERUhcbkRFRyA8LSBjaXJjdWxhcihERUckdHVybi5hbmdsZSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RFR1xuYGBgXG5gYGAifQ== -->

```r
```r
#####################################################################

   ##  Light On, NO Flow

####################################################################

LNN<-data[data$Light==\Present\,]
LNN <- LNN[LNN$Flow.rate==\No Flow\,]
LNN <- LNN[LNN$Chlorophyll==\No Chlorophyll\,]
LNN <- LNN[LNN$Guano==\Absent\,]

LNL<-data[data$Light==\Present\,]
LNL <- LNL[LNL$Flow.rate==\No Flow\,]
LNL <- LNL[LNL$Chlorophyll==\Low Chlorophyll\,]
LNL <- LNL[LNL$Guano==\Absent\,]

LNM<-data[data$Light==\Present\,]
LNM <- LNM[LNM$Flow.rate==\No Flow\,]
LNM <- LNM[LNM$Chlorophyll==\Medium Chlorophyll\,]
LNM <- LNM[LNM$Guano==\Absent\,]

LNH<-data[data$Light==\Present\,]
LNH <- LNH[LNH$Flow.rate==\No Flow\,]
LNH <- LNH[LNH$Chlorophyll==\High Chlorophyll\,]
LNH <- LNH[LNH$Guano==\Absent\,]

LNG<-data[data$Light==\Present\,]
LNG <- LNG[LNG$Flow.rate==\No Flow\,]
LNG <- LNG[LNG$Chlorophyll==\No Chlorophyll\,]
LNG <- LNG[LNG$Guano==\Present\,]
##############################################################

##    Lights On, Low Flow

###############################################################

LLN<-data[data$Light==\Present\,]
LLN <- LLN[LLN$Flow.rate==\Low Flow\,]
LLN <- LLN[LLN$Chlorophyll==\No Chlorophyll\,]
LLN <- LLN[LLN$Guano==\Absent\,]

LLL<-data[data$Light==\Present\,]
LLL <- LLL[LLL$Flow.rate==\Low Flow\,]
LLL <- LLL[LLL$Chlorophyll==\Low Chlorophyll\,]
LLL <- LLL[LLL$Guano==\Absent\,]

LLM<-data[data$Light==\Present\,]
LLM <- LLM[LLM$Flow.rate==\Low Flow\,]
LLM <- LLM[LLM$Chlorophyll==\Medium Chlorophyll\,]
LLM <- LLM[LLM$Guano==\Absent\,]

LLH<-data[data$Light==\Present\,]
LLH <- LLH[LLH$Flow.rate==\Low Flow\,]
LLH <- LLH[LLH$Chlorophyll==\High Chlorophyll\,]
LLH <- LLH[LLH$Guano==\Absent\,]

LLG<-data[data$Light==\Present\,]
LLG <- LLG[LLG$Flow.rate==\Low Flow\,]
LLG <- LLG[LLG$Chlorophyll==\No Chlorophyll\,]
LLG <- LLG[LLG$Guano==\Present\,]
#####################################################################

##    Light On, Medium Flow

######################################################################

LMN<-data[data$Light==\Present\,]
LMN <- LMN[LMN$Flow.rate==\Medium Flow\,]
LMN <- LMN[LMN$Chlorophyll==\No Chlorophyll\,]
LMN <- LMN[LMN$Guano==\Absent\,]

LML<-data[data$Light==\Present\,]
LML <- LML[LML$Flow.rate==\Medium Flow\,]
LML <- LML[LML$Chlorophyll==\Low Chlorophyll\,]
LML <- LML[LML$Guano==\Absent\,]

LMM<-data[data$Light==\Present\,]
LMM <- LMM[LMM$Flow.rate==\Medium Flow\,]
LMM <- LMM[LMM$Chlorophyll==\Medium Chlorophyll\,]
LMM <- LMM[LMM$Guano==\Absent\,]

LMH<-data[data$Light==\Present\,]
LMH <- LMH[LMH$Flow.rate==\Medium Flow\,]
LMH <- LMH[LMH$Chlorophyll==\High Chlorophyll\,]
LMH <- LMH[LMH$Guano==\Absent\,]

LMG<-data[data$Light==\Present\,]
LMG <- LMG[LMG$Flow.rate==\Medium Flow\,]
LMG <- LMG[LMG$Chlorophyll==\No Chlorophyll\,]
LMG <- LMG[LMG$Guano==\Present\,]
################################################################

###    Light On, High Flow

####################################################################

LHN<-data[data$Light==\Present\,]
LHN <- LHN[LHN$Flow.rate==\High Flow\,]
LHN <- LHN[LHN$Chlorophyll==\No Chlorophyll\,]
LHN <- LHN[LHN$Guano==\Absent\,]

LHL<-data[data$Light==\Present\,]
LHL <- LHL[LHL$Flow.rate==\High Flow\,]
LHL <- LHL[LHL$Chlorophyll==\Low Chlorophyll\,]
LHL <- LHL[LHL$Guano==\Absent\,]

LHM<-data[data$Light==\Present\,]
LHM <- LHM[LHM$Flow.rate==\High Flow\,]
LHM <- LHM[LHM$Chlorophyll==\Medium Chlorophyll\,]
LHM <- LHM[LHM$Guano==\Absent\,]

LHH<-data[data$Light==\Present\,]
LHH <- LHH[LHH$Flow.rate==\High Flow\,]
LHH <- LHH[LHH$Chlorophyll==\High Chlorophyll\,]
LHH <- LHH[LHH$Guano==\Absent\,]

LHG<-data[data$Light==\Present\,]
LHG <- LHG[LHG$Flow.rate==\High Flow\,]
LHG <- LHG[LHG$Chlorophyll==\No Chlorophyll\,]
LHG <- LHG[LHG$Guano==\Present\,]
################################################################


###    Light On, Extreme Flow

####################################################################

LEN<-data[data$Light==\Present\,]
LEN <- LEN[LEN$Flow.rate==\Extreme Flow\,]
LEN <- LEN[LEN$Chlorophyll==\No Chlorophyll\,]
LEN <- LEN[LEN$Guano==\Absent\,]

LEL<-data[data$Light==\Present\,]
LEL <- LEL[LEL$Flow.rate==\Extreme Flow\,]
LEL <- LEL[LEL$Chlorophyll==\Low Chlorophyll\,]
LEL <- LEL[LEL$Guano==\Absent\,]

LEM<-data[data$Light==\Present\,]
LEM <- LEM[LEM$Flow.rate==\Extreme Flow\,]
LEM <- LEM[LEM$Chlorophyll==\Medium Chlorophyll\,]
LEM <- LEM[LEM$Guano==\Absent\,]

LEH<-data[data$Light==\Present\,]
LEH <- LEH[LEH$Flow.rate==\Extreme Flow\,]
LEH <- LEH[LEH$Chlorophyll==\High Chlorophyll\,]
LEH <- LEH[LEH$Guano==\Absent\,]

LEG<-data[data$Light==\Present\,]
LEG <- LEG[LEG$Flow.rate==\Extreme Flow\,]
LEG <- LEG[LEG$Chlorophyll==\No Chlorophyll\,]
LEG <- LEG[LEG$Guano==\Present\,]
################################################################

#####################################################################

   ##  Light Off, NO Flow

####################################################################

DNN<-data[data$Light==\Absent\,]
DNN <- DNN[DNN$Flow.rate==\No Flow\,]
DNN <- DNN[DNN$Chlorophyll==\No Chlorophyll\,]
DNN <- DNN[DNN$Guano==\Absent\,]

DNL<-data[data$Light==\Absent\,]
DNL <- DNL[DNL$Flow.rate==\No Flow\,]
DNL <- DNL[DNL$Chlorophyll==\Low Chlorophyll\,]
DNL <- DNL[DNL$Guano==\Absent\,]

DNM<-data[data$Light==\Absent\,]
DNM <- DNM[DNM$Flow.rate==\No Flow\,]
DNM <- DNM[DNM$Chlorophyll==\Medium Chlorophyll\,]
DNM <- DNM[DNM$Guano==\Absent\,]

DNH <-data[data$Light==\Absent\,]
DNH <- DNH[DNH$Flow.rate==\No Flow\,]
DNH <- DNH[DNH$Chlorophyll==\High Chlorophyll\,]
DNH <- DNH[DNH$Guano==\Absent\,]

DNG<-data[data$Light==\Absent\,]
DNG <- DNG[DNG$Flow.rate==\No Flow\,]
DNG <- DNG[DNG$Chlorophyll==\No Chlorophyll\,]
DNG <- DNG[DNG$Guano==\Present\,]
##############################################################

##    Lights Off, Low Flow

###############################################################

DLN <-data[data$Light==\Absent\,]
DLN <- DLN[DLN$Flow.rate==\Low Flow\,]
DLN <- DLN[DLN$Chlorophyll==\No Chlorophyll\,]
DLN <- DLN[DLN$Guano==\Absent\,]

DLL <-data[data$Light==\Absent\,]
DLL <- DLL[DLL$Flow.rate==\Low Flow\,]
DLL <- DLL[DLL$Chlorophyll==\Low Chlorophyll\,]
DLL <- DLL[DLL$Guano==\Absent\,]

DLM <-data[data$Light==\Absent\,]
DLM <- DLM[DLM$Flow.rate==\Low Flow\,]
DLM <- DLM[DLM$Chlorophyll==\Medium Chlorophyll\,]
DLM <- DLM[DLM$Guano==\Absent\,]

DLH <-data[data$Light==\Absent\,]
DLH <- DLH[DLH$Flow.rate==\Low Flow\,]
DLH <- DLH[DLH$Chlorophyll==\High Chlorophyll\,]
DLH <- DLH[DLH$Guano==\Absent\,]

DLG <-data[data$Light==\Absent\,]
DLG <- DLG[DLG$Flow.rate==\Low Flow\,]
DLG <- DLG[DLG$Chlorophyll==\No Chlorophyll\,]
DLG <- DLG[DLG$Guano==\Present\,]
#####################################################################

##    Light Off, Medium Flow

######################################################################

DMN <-data[data$Light==\Absent\,]
DMN <- DMN[DMN$Flow.rate==\Medium Flow\,]
DMN <- DMN[DMN$Chlorophyll==\No Chlorophyll\,]
DMN <- DMN[DMN$Guano==\Absent\,]

DML <-data[data$Light==\Absent\,]
DML <- DML[DML$Flow.rate==\Medium Flow\,]
DML <- DML[DML$Chlorophyll==\Low Chlorophyll\,]
DML <- DML[DML$Guano==\Absent\,]

DMM <-data[data$Light==\Absent\,]
DMM <- DMM[DMM$Flow.rate==\Medium Flow\,]
DMM <- DMM[DMM$Chlorophyll==\Medium Chlorophyll\,]
DMM <- DMM[DMM$Guano==\Absent\,]

DMH <-data[data$Light==\Absent\,]
DMH <- DMH[DMH$Flow.rate==\Medium Flow\,]
DMH <- DMH[DMH$Chlorophyll==\High Chlorophyll\,]
DMH <- DMH[DMH$Guano==\Absent\,]

DMG <-data[data$Light==\Absent\,]
DMG <- DMG[DMG$Flow.rate==\Medium Flow\,]
DMG <- DMG[DMG$Chlorophyll==\No Chlorophyll\,]
DMG <- DMG[DMG$Guano==\Present\,]
################################################################

###    Light Off, High Flow

####################################################################

DHN<-data[data$Light==\Absent\,]
DHN <- DHN[DHN$Flow.rate==\High Flow\,]
DHN <- DHN[DHN$Chlorophyll==\No Chlorophyll\,]
DHN <- DHN[DHN$Guano==\Absent\,]

DHL<-data[data$Light==\Absent\,]
DHL <- DHL[DHL$Flow.rate==\High Flow\,]
DHL <- DHL[DHL$Chlorophyll==\Low Chlorophyll\,]
DHL <- DHL[DHL$Guano==\Absent\,]

DHM<-data[data$Light==\Absent\,]
DHM <- DHM[DHM$Flow.rate==\High Flow\,]
DHM <- DHM[DHM$Chlorophyll==\Medium Chlorophyll\,]
DHM <- DHM[DHM$Guano==\Absent\,]

DHH<-data[data$Light==\Absent\,]
DHH <- DHH[DHH$Flow.rate==\High Flow\,]
DHH <- DHH[DHH$Chlorophyll==\High Chlorophyll\,]
DHH <- DHH[DHH$Guano==\Absent\,]

DHG<-data[data$Light==\Absent\,]
DHG <- DHG[DHG$Flow.rate==\High Flow\,]
DHG <- DHG[DHG$Chlorophyll==\No Chlorophyll\,]
DHG <- DHG[DHG$Guano==\Present\,]
################################################################


###    Light Off, Extreme Flow

####################################################################

DEN<-data[data$Light==\Absent\,]
DEN <- DEN[DEN$Flow.rate==\Extreme Flow\,]
DEN <- DEN[DEN$Chlorophyll==\No Chlorophyll\,]
DEN <- DEN[DEN$Guano==\Absent\,]

DEL<-data[data$Light==\Absent\,]
DEL <- DEL[DEL$Flow.rate==\Extreme Flow\,]
DEL <- DEL[DEL$Chlorophyll==\Low Chlorophyll\,]
DEL <- DEL[DEL$Guano==\Absent\,]

DEM<-data[data$Light==\Absent\,]
DEM <- DEM[DEM$Flow.rate==\Extreme Flow\,]
DEM <- DEM[DEM$Chlorophyll==\Medium Chlorophyll\,]
DEM <- DEM[DEM$Guano==\Absent\,]

DEH<-data[data$Light==\Absent\,]
DEH <- DEH[DEH$Flow.rate==\Extreme Flow\,]
DEH <- DEH[DEH$Chlorophyll==\High Chlorophyll\,]
DEH <- DEH[DEH$Guano==\Absent\,]

DEG<-data[data$Light==\Absent\,]
DEG <- DEG[DEG$Flow.rate==\Extreme Flow\,]
DEG <- DEG[DEG$Chlorophyll==\No Chlorophyll\,]
DEG <- DEG[DEG$Guano==\Present\,]
################################################################
  ### setting data as circular
##   Lights on

LNN <- circular(LNN$turn.angle, units=\degrees\, template=\geographics\) #assign LNN subset to \LNN\ variable
LNL <- circular(LNL$turn.angle, units=\degrees\, template=\geographics\) #LNL
LNM <- circular(LNM$turn.angle, units=\degrees\, template=\geographics\) #LNM
LNH <- circular(LNH$turn.angle, units=\degrees\, template=\geographics\) #LNH
LNG <- circular(LNG$turn.angle, units=\degrees\, template=\geographics\) #LNG

LLN <- circular(LLN$turn.angle, units=\degrees\, template=\geographics\) #LLN
LLL <- circular(LLL$turn.angle, units=\degrees\, template=\geographics\) #LLL
LLM <- circular(LLM$turn.angle, units=\degrees\, template=\geographics\) #LLM
LLH <- circular(LLH$turn.angle, units=\degrees\, template=\geographics\) #LLH
LLG <- circular(LLG$turn.angle, units=\degrees\, template=\geographics\) #LLG

LMN <- circular(LMN$turn.angle, units=\degrees\, template=\geographics\) #LMN
LML <- circular(LML$turn.angle, units=\degrees\, template=\geographics\) #LML
LMM <- circular(LMM$turn.angle, units=\degrees\, template=\geographics\) #LMM
LMH <- circular(LMH$turn.angle, units=\degrees\, template=\geographics\) #LMH
LMG <- circular(LMG$turn.angle, units=\degrees\, template=\geographics\) #LMG

LHN <- circular(LHN$turn.angle, units=\degrees\, template=\geographics\) #LHN
LHL <- circular(LHL$turn.angle, units=\degrees\, template=\geographics\) #LHL
LHM <- circular(LHM$turn.angle, units=\degrees\, template=\geographics\) #LHM
LHH <- circular(LHH$turn.angle, units=\degrees\, template=\geographics\) #LHH
LHG <- circular(LHG$turn.angle, units=\degrees\, template=\geographics\) #LHG

LEN <- circular(LEN$turn.angle, units=\degrees\, template=\geographics\) #LEN
LEL <- circular(LEL$turn.angle, units=\degrees\, template=\geographics\) #LEL
LEM <- circular(LEM$turn.angle, units=\degrees\, template=\geographics\) #LEM
LEH <- circular(LEH$turn.angle, units=\degrees\, template=\geographics\) #LEH
LEG <- circular(LEG$turn.angle, units=\degrees\, template=\geographics\) #LEG

############  Lights Off

DNN <- circular(DNN$turn.angle, units=\degrees\, template=\geographics\) #DNN
DNL <- circular(DNL$turn.angle, units=\degrees\, template=\geographics\) #DNL
DNM <- circular(DNM$turn.angle, units=\degrees\, template=\geographics\) #DNM
DNH <- circular(DNH$turn.angle, units=\degrees\, template=\geographics\) #DNH
DNG <- circular(DNG$turn.angle, units=\degrees\, template=\geographics\) #DNG

DLN <- circular(DLN$turn.angle, units=\degrees\, template=\geographics\) #DLN
DLL <- circular(DLL$turn.angle, units=\degrees\, template=\geographics\) #DLL
DLM <- circular(DLM$turn.angle, units=\degrees\, template=\geographics\) #DLM
DLH <- circular(DLH$turn.angle, units=\degrees\, template=\geographics\) #DLH
DLG <- circular(DLG$turn.angle, units=\degrees\, template=\geographics\) #DLG

DMN <- circular(DMN$turn.angle, units=\degrees\, template=\geographics\) #DMN
DML <- circular(DML$turn.angle, units=\degrees\, template=\geographics\) #DML
DMM <- circular(DMM$turn.angle, units=\degrees\, template=\geographics\) #DMM
DMH <- circular(DMH$turn.angle, units=\degrees\, template=\geographics\) #DMH
DMG <- circular(DMG$turn.angle, units=\degrees\, template=\geographics\) #DMG

DHN <- circular(DHN$turn.angle, units=\degrees\, template=\geographics\) #DHN
DHL <- circular(DHL$turn.angle, units=\degrees\, template=\geographics\) #DHL
DHM <- circular(DHM$turn.angle, units=\degrees\, template=\geographics\) #DHM
DHH <- circular(DHH$turn.angle, units=\degrees\, template=\geographics\) #DHH
DHG <- circular(DHG$turn.angle, units=\degrees\, template=\geographics\) #DHG

DEN <- circular(DEN$turn.angle, units=\degrees\, template=\geographics\) #DEN
DEL <- circular(DEL$turn.angle, units=\degrees\, template=\geographics\) #DEL
DEM <- circular(DEM$turn.angle, units=\degrees\, template=\geographics\) #DEM
DEH <- circular(DEH$turn.angle, units=\degrees\, template=\geographics\) #DEH
DEG <- circular(DEG$turn.angle, units=\degrees\, template=\geographics\) #DEG

<!-- rnb-source-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->


Now that data is subsetted, find the means... and plot circular plot with mean vector

Lights On first...


<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxubWVhbihMTk4sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcblxuYGBgXG5gYGAifQ== -->

```r
```r
mean(LNN, na.rm = TRUE) #remove NAs from dataset, then find mean 

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiQ2lyY3VsYXIgRGF0YTogXG5UeXBlID0gYW5nbGVzIFxuVW5pdHMgPSBkZWdyZWVzIFxuVGVtcGxhdGUgPSBnZW9ncmFwaGljcyBcbk1vZHVsbyA9IGFzaXMgXG5aZXJvID0gMS41NzA3OTYgXG5Sb3RhdGlvbiA9IGNsb2NrIFxuWzFdIDcyLjY5Mzk1XG4ifQ== -->

Circular Data: Type = angles Units = degrees Template = geographics Modulo = asis Zero = 1.570796 Rotation = clock [1] 72.69395

<!-- rnb-output-end -->

<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxudmFyKExOTiwgbmEucm0gPSBUUlVFKVxuYGBgXG5gYGAifQ== -->

```r
```r
var(LNN, na.rm = TRUE)

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuMzg0NjU1N1xuIn0= -->

[1] 0.3846557

<!-- rnb-output-end -->

<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxubWVhbmRldmlhdGlvbihMTk4sIG5hLnJtPVRSVUUpXG5gYGBcbmBgYCJ9 -->

```r
```r
meandeviation(LNN, na.rm=TRUE)

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODExMzU4NVxuIn0= -->

[1] 0.8113585

<!-- rnb-output-end -->

<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuc3VtbWFyeShMTk4sIG5hLnJtPVRSVUUpIFxuYGBgXG5gYGAifQ== -->

```r
```r
summary(LNN, na.rm=TRUE) 

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiICAgICAgICBuICAgICAgTWluLiAgIDFzdCBRdS4gICAgTWVkaWFuICAgICAgTWVhbiAgIDNyZCBRdS4gICAgICBNYXguICAgICAgIFJobyBcbjIuNjY4ZSswNSAxLjgwMGUrMDIgMS4yMThlKzAyIDYuODc3ZSswMSA3LjI2OWUrMDEgMi42NjhlKzAxIDAuMDAwZSswMCA2LjE1M2UtMDEgXG4gICAgIE5BJ3MgXG4yLjgwMGUrMDEgXG4ifQ== -->

    n      Min.   1st Qu.    Median      Mean   3rd Qu.      Max.       Rho 

2.668e+05 1.800e+02 1.218e+02 6.877e+01 7.269e+01 2.668e+01 0.000e+00 6.153e-01 NA’s 2.800e+01

<!-- rnb-output-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->

Now for lights off AKA Dark


<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxudmFyKERFTiwgbmEucm0gPSBUUlVFKVxuXG5gYGBcbmBgYCJ9 -->

```r
```r
var(DEN, na.rm = TRUE)

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuMTkzMjY0MVxuIn0= -->

[1] 0.1932641

<!-- rnb-output-end -->

<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxubWVhbmRldmlhdGlvbihERU4sIG5hLnJtPVRSVUUpXG5gYGBcbmBgYCJ9 -->

```r
```r
meandeviation(DEN, na.rm=TRUE)

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuMzg3NDQ2N1xuIn0= -->

[1] 0.3874467

<!-- rnb-output-end -->

<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuc3VtbWFyeShERU4sIG5hLnJtPVRSVUUpXG5gYGBcbmBgYCJ9 -->

```r
```r
summary(DEN, na.rm=TRUE)

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiICAgICAgICAgbiAgICAgICBNaW4uICAgIDFzdCBRdS4gICAgIE1lZGlhbiAgICAgICBNZWFuICAgIDNyZCBRdS4gICAgICAgTWF4LiAgICAgICAgUmhvIFxuMjAwMTAuMDAwMCAgICA5MC4wMDAwICAgICAyLjEyNzAgICAgIDAuMDAwMCAgICAgMC41MTgxICAgIC0xLjgyNTAgICAtOTAuMDAwMCAgICAgMC44MDY3IFxuIn0= -->

     n       Min.    1st Qu.     Median       Mean    3rd Qu.       Max.        Rho 

20010.0000 90.0000 2.1270 0.0000 0.5181 -1.8250 -90.0000 0.8067

<!-- rnb-output-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->



Test if mean vectors are significantly different...


<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyMgIEEgV2F0c29uIFRlc3QgZGV0ZXJtaW5lcyBpZiB0d28gZ3JvdXBzw6LigqzihKIgb3JpZW50YXRpb25zIGFyZSBzaWduaWZpY2FudGx5IGRpZmZlcmVudCBmcm9tIGVhY2ggb3RoZXIuIFxud2F0c29uLnR3by50ZXN0KExOTiwgTEVOKVxuXG5gYGBcbmBgYCJ9 -->

```r
```r
##  A Watson Test determines if two groups’ orientations are significantly different from each other. 
watson.two.test(LNN, LEN)

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiKioqIHJlY3Vyc2l2ZSBnYyBpbnZvY2F0aW9uXG4qKiogcmVjdXJzaXZlIGdjIGludm9jYXRpb25cbioqKiByZWN1cnNpdmUgZ2MgaW52b2NhdGlvblxuKioqIHJlY3Vyc2l2ZSBnYyBpbnZvY2F0aW9uXG4qKiogcmVjdXJzaXZlIGdjIGludm9jYXRpb25cbioqKiByZWN1cnNpdmUgZ2MgaW52b2NhdGlvblxuKioqIHJlY3Vyc2l2ZSBnYyBpbnZvY2F0aW9uXG4qKiogcmVjdXJzaXZlIGdjIGludm9jYXRpb25cbiJ9 -->

*** recursive gc invocation *** recursive gc invocation *** recursive gc invocation *** recursive gc invocation *** recursive gc invocation *** recursive gc invocation *** recursive gc invocation *** recursive gc invocation

<!-- rnb-output-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->


Do it all again for headings.....

<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuTE5OPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxOTiA8LSBMTk5bTE5OJEZsb3cucmF0ZT09XFxObyBGbG93XFwsXVxuTE5OIDwtIExOTltMTk4kQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5MTk4gPC0gTE5OW0xOTiRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxOTDwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTkwgPC0gTE5MW0xOTCRGbG93LnJhdGU9PVxcTm8gRmxvd1xcLF1cbkxOTCA8LSBMTkxbTE5MJENobG9yb3BoeWxsPT1cXExvdyBDaGxvcm9waHlsbFxcLF1cbkxOTCA8LSBMTkxbTE5MJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTE5NPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxOTSA8LSBMTk1bTE5NJEZsb3cucmF0ZT09XFxObyBGbG93XFwsXVxuTE5NIDwtIExOTVtMTk0kQ2hsb3JvcGh5bGw9PVxcTWVkaXVtIENobG9yb3BoeWxsXFwsXVxuTE5NIDwtIExOTVtMTk0kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MTkg8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTE5IIDwtIExOSFtMTkgkRmxvdy5yYXRlPT1cXE5vIEZsb3dcXCxdXG5MTkggPC0gTE5IW0xOSCRDaGxvcm9waHlsbD09XFxIaWdoIENobG9yb3BoeWxsXFwsXVxuTE5IIDwtIExOSFtMTkgkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MTkc8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTE5HIDwtIExOR1tMTkckRmxvdy5yYXRlPT1cXE5vIEZsb3dcXCxdXG5MTkcgPC0gTE5HW0xORyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkxORyA8LSBMTkdbTE5HJEd1YW5vPT1cXFByZXNlbnRcXCxdXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4jIyAgICBMaWdodHMgT24sIExvdyBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5MTE48LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTExOIDwtIExMTltMTE4kRmxvdy5yYXRlPT1cXExvdyBGbG93XFwsXVxuTExOIDwtIExMTltMTE4kQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5MTE4gPC0gTExOW0xMTiRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxMTDwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTEwgPC0gTExMW0xMTCRGbG93LnJhdGU9PVxcTG93IEZsb3dcXCxdXG5MTEwgPC0gTExMW0xMTCRDaGxvcm9waHlsbD09XFxMb3cgQ2hsb3JvcGh5bGxcXCxdXG5MTEwgPC0gTExMW0xMTCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxMTTwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTE0gPC0gTExNW0xMTSRGbG93LnJhdGU9PVxcTG93IEZsb3dcXCxdXG5MTE0gPC0gTExNW0xMTSRDaGxvcm9waHlsbD09XFxNZWRpdW0gQ2hsb3JvcGh5bGxcXCxdXG5MTE0gPC0gTExNW0xMTSRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxMSDwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTEggPC0gTExIW0xMSCRGbG93LnJhdGU9PVxcTG93IEZsb3dcXCxdXG5MTEggPC0gTExIW0xMSCRDaGxvcm9waHlsbD09XFxIaWdoIENobG9yb3BoeWxsXFwsXVxuTExIIDwtIExMSFtMTEgkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MTEc8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTExHIDwtIExMR1tMTEckRmxvdy5yYXRlPT1cXExvdyBGbG93XFwsXVxuTExHIDwtIExMR1tMTEckQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5MTEcgPC0gTExHW0xMRyRHdWFubz09XFxQcmVzZW50XFwsXVxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiMjICAgIExpZ2h0IE9uLCBNZWRpdW0gRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbkxNTjwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTU4gPC0gTE1OW0xNTiRGbG93LnJhdGU9PVxcTWVkaXVtIEZsb3dcXCxdXG5MTU4gPC0gTE1OW0xNTiRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkxNTiA8LSBMTU5bTE1OJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTE1MPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxNTCA8LSBMTUxbTE1MJEZsb3cucmF0ZT09XFxNZWRpdW0gRmxvd1xcLF1cbkxNTCA8LSBMTUxbTE1MJENobG9yb3BoeWxsPT1cXExvdyBDaGxvcm9waHlsbFxcLF1cbkxNTCA8LSBMTUxbTE1MJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTE1NPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxNTSA8LSBMTU1bTE1NJEZsb3cucmF0ZT09XFxNZWRpdW0gRmxvd1xcLF1cbkxNTSA8LSBMTU1bTE1NJENobG9yb3BoeWxsPT1cXE1lZGl1bSBDaGxvcm9waHlsbFxcLF1cbkxNTSA8LSBMTU1bTE1NJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTE1IPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxNSCA8LSBMTUhbTE1IJEZsb3cucmF0ZT09XFxNZWRpdW0gRmxvd1xcLF1cbkxNSCA8LSBMTUhbTE1IJENobG9yb3BoeWxsPT1cXEhpZ2ggQ2hsb3JvcGh5bGxcXCxdXG5MTUggPC0gTE1IW0xNSCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxNRzwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTUcgPC0gTE1HW0xNRyRGbG93LnJhdGU9PVxcTWVkaXVtIEZsb3dcXCxdXG5MTUcgPC0gTE1HW0xNRyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkxNRyA8LSBMTUdbTE1HJEd1YW5vPT1cXFByZXNlbnRcXCxdXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiMjIyAgICBMaWdodCBPbiwgSGlnaCBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbkxITjwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MSE4gPC0gTEhOW0xITiRGbG93LnJhdGU9PVxcSGlnaCBGbG93XFwsXVxuTEhOIDwtIExITltMSE4kQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5MSE4gPC0gTEhOW0xITiRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxITDwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MSEwgPC0gTEhMW0xITCRGbG93LnJhdGU9PVxcSGlnaCBGbG93XFwsXVxuTEhMIDwtIExITFtMSEwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuTEhMIDwtIExITFtMSEwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MSE08LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTEhNIDwtIExITVtMSE0kRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkxITSA8LSBMSE1bTEhNJENobG9yb3BoeWxsPT1cXE1lZGl1bSBDaGxvcm9waHlsbFxcLF1cbkxITSA8LSBMSE1bTEhNJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTEhIPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxISCA8LSBMSEhbTEhIJEZsb3cucmF0ZT09XFxIaWdoIEZsb3dcXCxdXG5MSEggPC0gTEhIW0xISCRDaGxvcm9waHlsbD09XFxIaWdoIENobG9yb3BoeWxsXFwsXVxuTEhIIDwtIExISFtMSEgkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MSEc8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTEhHIDwtIExIR1tMSEckRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkxIRyA8LSBMSEdbTEhHJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuTEhHIDwtIExIR1tMSEckR3Vhbm89PVxcUHJlc2VudFxcLF1cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuXG4jIyMgICAgTGlnaHQgT24sIEV4dHJlbWUgRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5MRU48LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTEVOIDwtIExFTltMRU4kRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkxFTiA8LSBMRU5bTEVOJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuTEVOIDwtIExFTltMRU4kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MRUw8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTEVMIDwtIExFTFtMRUwkRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkxFTCA8LSBMRUxbTEVMJENobG9yb3BoeWxsPT1cXExvdyBDaGxvcm9waHlsbFxcLF1cbkxFTCA8LSBMRUxbTEVMJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTEVNPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxFTSA8LSBMRU1bTEVNJEZsb3cucmF0ZT09XFxFeHRyZW1lIEZsb3dcXCxdXG5MRU0gPC0gTEVNW0xFTSRDaGxvcm9waHlsbD09XFxNZWRpdW0gQ2hsb3JvcGh5bGxcXCxdXG5MRU0gPC0gTEVNW0xFTSRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxFSDwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MRUggPC0gTEVIW0xFSCRGbG93LnJhdGU9PVxcRXh0cmVtZSBGbG93XFwsXVxuTEVIIDwtIExFSFtMRUgkQ2hsb3JvcGh5bGw9PVxcSGlnaCBDaGxvcm9waHlsbFxcLF1cbkxFSCA8LSBMRUhbTEVIJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTEVHPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxFRyA8LSBMRUdbTEVHJEZsb3cucmF0ZT09XFxFeHRyZW1lIEZsb3dcXCxdXG5MRUcgPC0gTEVHW0xFRyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkxFRyA8LSBMRUdbTEVHJEd1YW5vPT1cXFByZXNlbnRcXCxdXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4gICAjIyAgTGlnaHQgT2ZmLCBOTyBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbkROTjwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkROTiA8LSBETk5bRE5OJEZsb3cucmF0ZT09XFxObyBGbG93XFwsXVxuRE5OIDwtIEROTltETk4kQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5ETk4gPC0gRE5OW0ROTiRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkROTDwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkROTCA8LSBETkxbRE5MJEZsb3cucmF0ZT09XFxObyBGbG93XFwsXVxuRE5MIDwtIEROTFtETkwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuRE5MIDwtIEROTFtETkwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETk08LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ETk0gPC0gRE5NW0ROTSRGbG93LnJhdGU9PVxcTm8gRmxvd1xcLF1cbkROTSA8LSBETk1bRE5NJENobG9yb3BoeWxsPT1cXE1lZGl1bSBDaGxvcm9waHlsbFxcLF1cbkROTSA8LSBETk1bRE5NJEd1YW5vPT1cXEFic2VudFxcLF1cblxuRE5IIDwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkROSCA8LSBETkhbRE5IJEZsb3cucmF0ZT09XFxObyBGbG93XFwsXVxuRE5IIDwtIEROSFtETkgkQ2hsb3JvcGh5bGw9PVxcSGlnaCBDaGxvcm9waHlsbFxcLF1cbkROSCA8LSBETkhbRE5IJEd1YW5vPT1cXEFic2VudFxcLF1cblxuRE5HPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE5HIDwtIEROR1tETkckRmxvdy5yYXRlPT1cXE5vIEZsb3dcXCxdXG5ETkcgPC0gRE5HW0RORyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkRORyA8LSBETkdbRE5HJEd1YW5vPT1cXFByZXNlbnRcXCxdXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4jIyAgICBMaWdodHMgT2ZmLCBMb3cgRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuRExOIDwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRMTiA8LSBETE5bRExOJEZsb3cucmF0ZT09XFxMb3cgRmxvd1xcLF1cbkRMTiA8LSBETE5bRExOJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuRExOIDwtIERMTltETE4kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETEwgPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRExMIDwtIERMTFtETEwkRmxvdy5yYXRlPT1cXExvdyBGbG93XFwsXVxuRExMIDwtIERMTFtETEwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuRExMIDwtIERMTFtETEwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETE0gPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRExNIDwtIERMTVtETE0kRmxvdy5yYXRlPT1cXExvdyBGbG93XFwsXVxuRExNIDwtIERMTVtETE0kQ2hsb3JvcGh5bGw9PVxcTWVkaXVtIENobG9yb3BoeWxsXFwsXVxuRExNIDwtIERMTVtETE0kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETEggPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRExIIDwtIERMSFtETEgkRmxvdy5yYXRlPT1cXExvdyBGbG93XFwsXVxuRExIIDwtIERMSFtETEgkQ2hsb3JvcGh5bGw9PVxcSGlnaCBDaGxvcm9waHlsbFxcLF1cbkRMSCA8LSBETEhbRExIJEd1YW5vPT1cXEFic2VudFxcLF1cblxuRExHIDwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRMRyA8LSBETEdbRExHJEZsb3cucmF0ZT09XFxMb3cgRmxvd1xcLF1cbkRMRyA8LSBETEdbRExHJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuRExHIDwtIERMR1tETEckR3Vhbm89PVxcUHJlc2VudFxcLF1cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4jIyAgICBMaWdodCBPZmYsIE1lZGl1bSBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuRE1OIDwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRNTiA8LSBETU5bRE1OJEZsb3cucmF0ZT09XFxNZWRpdW0gRmxvd1xcLF1cbkRNTiA8LSBETU5bRE1OJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuRE1OIDwtIERNTltETU4kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETUwgPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE1MIDwtIERNTFtETUwkRmxvdy5yYXRlPT1cXE1lZGl1bSBGbG93XFwsXVxuRE1MIDwtIERNTFtETUwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuRE1MIDwtIERNTFtETUwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETU0gPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE1NIDwtIERNTVtETU0kRmxvdy5yYXRlPT1cXE1lZGl1bSBGbG93XFwsXVxuRE1NIDwtIERNTVtETU0kQ2hsb3JvcGh5bGw9PVxcTWVkaXVtIENobG9yb3BoeWxsXFwsXVxuRE1NIDwtIERNTVtETU0kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETUggPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE1IIDwtIERNSFtETUgkRmxvdy5yYXRlPT1cXE1lZGl1bSBGbG93XFwsXVxuRE1IIDwtIERNSFtETUgkQ2hsb3JvcGh5bGw9PVxcSGlnaCBDaGxvcm9waHlsbFxcLF1cbkRNSCA8LSBETUhbRE1IJEd1YW5vPT1cXEFic2VudFxcLF1cblxuRE1HIDwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRNRyA8LSBETUdbRE1HJEZsb3cucmF0ZT09XFxNZWRpdW0gRmxvd1xcLF1cbkRNRyA8LSBETUdbRE1HJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuRE1HIDwtIERNR1tETUckR3Vhbm89PVxcUHJlc2VudFxcLF1cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuIyMjICAgIExpZ2h0IE9mZiwgSGlnaCBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbkRITjwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRITiA8LSBESE5bREhOJEZsb3cucmF0ZT09XFxIaWdoIEZsb3dcXCxdXG5ESE4gPC0gREhOW0RITiRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkRITiA8LSBESE5bREhOJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREhMPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREhMIDwtIERITFtESEwkRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkRITCA8LSBESExbREhMJENobG9yb3BoeWxsPT1cXExvdyBDaGxvcm9waHlsbFxcLF1cbkRITCA8LSBESExbREhMJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREhNPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREhNIDwtIERITVtESE0kRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkRITSA8LSBESE1bREhNJENobG9yb3BoeWxsPT1cXE1lZGl1bSBDaGxvcm9waHlsbFxcLF1cbkRITSA8LSBESE1bREhNJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREhIPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREhIIDwtIERISFtESEgkRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkRISCA8LSBESEhbREhIJENobG9yb3BoeWxsPT1cXEhpZ2ggQ2hsb3JvcGh5bGxcXCxdXG5ESEggPC0gREhIW0RISCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkRIRzwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRIRyA8LSBESEdbREhHJEZsb3cucmF0ZT09XFxIaWdoIEZsb3dcXCxdXG5ESEcgPC0gREhHW0RIRyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkRIRyA8LSBESEdbREhHJEd1YW5vPT1cXFByZXNlbnRcXCxdXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cblxuIyMjICAgIExpZ2h0IE9mZiwgRXh0cmVtZSBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbkRFTjwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRFTiA8LSBERU5bREVOJEZsb3cucmF0ZT09XFxFeHRyZW1lIEZsb3dcXCxdXG5ERU4gPC0gREVOW0RFTiRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkRFTiA8LSBERU5bREVOJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREVMPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREVMIDwtIERFTFtERUwkRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkRFTCA8LSBERUxbREVMJENobG9yb3BoeWxsPT1cXExvdyBDaGxvcm9waHlsbFxcLF1cbkRFTCA8LSBERUxbREVMJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREVNPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREVNIDwtIERFTVtERU0kRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkRFTSA8LSBERU1bREVNJENobG9yb3BoeWxsPT1cXE1lZGl1bSBDaGxvcm9waHlsbFxcLF1cbkRFTSA8LSBERU1bREVNJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREVIPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREVIIDwtIERFSFtERUgkRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkRFSCA8LSBERUhbREVIJENobG9yb3BoeWxsPT1cXEhpZ2ggQ2hsb3JvcGh5bGxcXCxdXG5ERUggPC0gREVIW0RFSCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkRFRzwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRFRyA8LSBERUdbREVHJEZsb3cucmF0ZT09XFxFeHRyZW1lIEZsb3dcXCxdXG5ERUcgPC0gREVHW0RFRyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkRFRyA8LSBERUdbREVHJEd1YW5vPT1cXFByZXNlbnRcXCxdXG5cbmBgYFxuYGBgIn0= -->

```r
```r
LNN<-data[data$Light==\Present\,]
LNN <- LNN[LNN$Flow.rate==\No Flow\,]
LNN <- LNN[LNN$Chlorophyll==\No Chlorophyll\,]
LNN <- LNN[LNN$Guano==\Absent\,]

LNL<-data[data$Light==\Present\,]
LNL <- LNL[LNL$Flow.rate==\No Flow\,]
LNL <- LNL[LNL$Chlorophyll==\Low Chlorophyll\,]
LNL <- LNL[LNL$Guano==\Absent\,]

LNM<-data[data$Light==\Present\,]
LNM <- LNM[LNM$Flow.rate==\No Flow\,]
LNM <- LNM[LNM$Chlorophyll==\Medium Chlorophyll\,]
LNM <- LNM[LNM$Guano==\Absent\,]

LNH<-data[data$Light==\Present\,]
LNH <- LNH[LNH$Flow.rate==\No Flow\,]
LNH <- LNH[LNH$Chlorophyll==\High Chlorophyll\,]
LNH <- LNH[LNH$Guano==\Absent\,]

LNG<-data[data$Light==\Present\,]
LNG <- LNG[LNG$Flow.rate==\No Flow\,]
LNG <- LNG[LNG$Chlorophyll==\No Chlorophyll\,]
LNG <- LNG[LNG$Guano==\Present\,]
##############################################################

##    Lights On, Low Flow

###############################################################

LLN<-data[data$Light==\Present\,]
LLN <- LLN[LLN$Flow.rate==\Low Flow\,]
LLN <- LLN[LLN$Chlorophyll==\No Chlorophyll\,]
LLN <- LLN[LLN$Guano==\Absent\,]

LLL<-data[data$Light==\Present\,]
LLL <- LLL[LLL$Flow.rate==\Low Flow\,]
LLL <- LLL[LLL$Chlorophyll==\Low Chlorophyll\,]
LLL <- LLL[LLL$Guano==\Absent\,]

LLM<-data[data$Light==\Present\,]
LLM <- LLM[LLM$Flow.rate==\Low Flow\,]
LLM <- LLM[LLM$Chlorophyll==\Medium Chlorophyll\,]
LLM <- LLM[LLM$Guano==\Absent\,]

LLH<-data[data$Light==\Present\,]
LLH <- LLH[LLH$Flow.rate==\Low Flow\,]
LLH <- LLH[LLH$Chlorophyll==\High Chlorophyll\,]
LLH <- LLH[LLH$Guano==\Absent\,]

LLG<-data[data$Light==\Present\,]
LLG <- LLG[LLG$Flow.rate==\Low Flow\,]
LLG <- LLG[LLG$Chlorophyll==\No Chlorophyll\,]
LLG <- LLG[LLG$Guano==\Present\,]
#####################################################################

##    Light On, Medium Flow

######################################################################

LMN<-data[data$Light==\Present\,]
LMN <- LMN[LMN$Flow.rate==\Medium Flow\,]
LMN <- LMN[LMN$Chlorophyll==\No Chlorophyll\,]
LMN <- LMN[LMN$Guano==\Absent\,]

LML<-data[data$Light==\Present\,]
LML <- LML[LML$Flow.rate==\Medium Flow\,]
LML <- LML[LML$Chlorophyll==\Low Chlorophyll\,]
LML <- LML[LML$Guano==\Absent\,]

LMM<-data[data$Light==\Present\,]
LMM <- LMM[LMM$Flow.rate==\Medium Flow\,]
LMM <- LMM[LMM$Chlorophyll==\Medium Chlorophyll\,]
LMM <- LMM[LMM$Guano==\Absent\,]

LMH<-data[data$Light==\Present\,]
LMH <- LMH[LMH$Flow.rate==\Medium Flow\,]
LMH <- LMH[LMH$Chlorophyll==\High Chlorophyll\,]
LMH <- LMH[LMH$Guano==\Absent\,]

LMG<-data[data$Light==\Present\,]
LMG <- LMG[LMG$Flow.rate==\Medium Flow\,]
LMG <- LMG[LMG$Chlorophyll==\No Chlorophyll\,]
LMG <- LMG[LMG$Guano==\Present\,]
################################################################

###    Light On, High Flow

####################################################################

LHN<-data[data$Light==\Present\,]
LHN <- LHN[LHN$Flow.rate==\High Flow\,]
LHN <- LHN[LHN$Chlorophyll==\No Chlorophyll\,]
LHN <- LHN[LHN$Guano==\Absent\,]

LHL<-data[data$Light==\Present\,]
LHL <- LHL[LHL$Flow.rate==\High Flow\,]
LHL <- LHL[LHL$Chlorophyll==\Low Chlorophyll\,]
LHL <- LHL[LHL$Guano==\Absent\,]

LHM<-data[data$Light==\Present\,]
LHM <- LHM[LHM$Flow.rate==\High Flow\,]
LHM <- LHM[LHM$Chlorophyll==\Medium Chlorophyll\,]
LHM <- LHM[LHM$Guano==\Absent\,]

LHH<-data[data$Light==\Present\,]
LHH <- LHH[LHH$Flow.rate==\High Flow\,]
LHH <- LHH[LHH$Chlorophyll==\High Chlorophyll\,]
LHH <- LHH[LHH$Guano==\Absent\,]

LHG<-data[data$Light==\Present\,]
LHG <- LHG[LHG$Flow.rate==\High Flow\,]
LHG <- LHG[LHG$Chlorophyll==\No Chlorophyll\,]
LHG <- LHG[LHG$Guano==\Present\,]
################################################################


###    Light On, Extreme Flow

####################################################################

LEN<-data[data$Light==\Present\,]
LEN <- LEN[LEN$Flow.rate==\Extreme Flow\,]
LEN <- LEN[LEN$Chlorophyll==\No Chlorophyll\,]
LEN <- LEN[LEN$Guano==\Absent\,]

LEL<-data[data$Light==\Present\,]
LEL <- LEL[LEL$Flow.rate==\Extreme Flow\,]
LEL <- LEL[LEL$Chlorophyll==\Low Chlorophyll\,]
LEL <- LEL[LEL$Guano==\Absent\,]

LEM<-data[data$Light==\Present\,]
LEM <- LEM[LEM$Flow.rate==\Extreme Flow\,]
LEM <- LEM[LEM$Chlorophyll==\Medium Chlorophyll\,]
LEM <- LEM[LEM$Guano==\Absent\,]

LEH<-data[data$Light==\Present\,]
LEH <- LEH[LEH$Flow.rate==\Extreme Flow\,]
LEH <- LEH[LEH$Chlorophyll==\High Chlorophyll\,]
LEH <- LEH[LEH$Guano==\Absent\,]

LEG<-data[data$Light==\Present\,]
LEG <- LEG[LEG$Flow.rate==\Extreme Flow\,]
LEG <- LEG[LEG$Chlorophyll==\No Chlorophyll\,]
LEG <- LEG[LEG$Guano==\Present\,]
################################################################

#####################################################################

   ##  Light Off, NO Flow

####################################################################

DNN<-data[data$Light==\Absent\,]
DNN <- DNN[DNN$Flow.rate==\No Flow\,]
DNN <- DNN[DNN$Chlorophyll==\No Chlorophyll\,]
DNN <- DNN[DNN$Guano==\Absent\,]

DNL<-data[data$Light==\Absent\,]
DNL <- DNL[DNL$Flow.rate==\No Flow\,]
DNL <- DNL[DNL$Chlorophyll==\Low Chlorophyll\,]
DNL <- DNL[DNL$Guano==\Absent\,]

DNM<-data[data$Light==\Absent\,]
DNM <- DNM[DNM$Flow.rate==\No Flow\,]
DNM <- DNM[DNM$Chlorophyll==\Medium Chlorophyll\,]
DNM <- DNM[DNM$Guano==\Absent\,]

DNH <-data[data$Light==\Absent\,]
DNH <- DNH[DNH$Flow.rate==\No Flow\,]
DNH <- DNH[DNH$Chlorophyll==\High Chlorophyll\,]
DNH <- DNH[DNH$Guano==\Absent\,]

DNG<-data[data$Light==\Absent\,]
DNG <- DNG[DNG$Flow.rate==\No Flow\,]
DNG <- DNG[DNG$Chlorophyll==\No Chlorophyll\,]
DNG <- DNG[DNG$Guano==\Present\,]
##############################################################

##    Lights Off, Low Flow

###############################################################

DLN <-data[data$Light==\Absent\,]
DLN <- DLN[DLN$Flow.rate==\Low Flow\,]
DLN <- DLN[DLN$Chlorophyll==\No Chlorophyll\,]
DLN <- DLN[DLN$Guano==\Absent\,]

DLL <-data[data$Light==\Absent\,]
DLL <- DLL[DLL$Flow.rate==\Low Flow\,]
DLL <- DLL[DLL$Chlorophyll==\Low Chlorophyll\,]
DLL <- DLL[DLL$Guano==\Absent\,]

DLM <-data[data$Light==\Absent\,]
DLM <- DLM[DLM$Flow.rate==\Low Flow\,]
DLM <- DLM[DLM$Chlorophyll==\Medium Chlorophyll\,]
DLM <- DLM[DLM$Guano==\Absent\,]

DLH <-data[data$Light==\Absent\,]
DLH <- DLH[DLH$Flow.rate==\Low Flow\,]
DLH <- DLH[DLH$Chlorophyll==\High Chlorophyll\,]
DLH <- DLH[DLH$Guano==\Absent\,]

DLG <-data[data$Light==\Absent\,]
DLG <- DLG[DLG$Flow.rate==\Low Flow\,]
DLG <- DLG[DLG$Chlorophyll==\No Chlorophyll\,]
DLG <- DLG[DLG$Guano==\Present\,]
#####################################################################

##    Light Off, Medium Flow

######################################################################

DMN <-data[data$Light==\Absent\,]
DMN <- DMN[DMN$Flow.rate==\Medium Flow\,]
DMN <- DMN[DMN$Chlorophyll==\No Chlorophyll\,]
DMN <- DMN[DMN$Guano==\Absent\,]

DML <-data[data$Light==\Absent\,]
DML <- DML[DML$Flow.rate==\Medium Flow\,]
DML <- DML[DML$Chlorophyll==\Low Chlorophyll\,]
DML <- DML[DML$Guano==\Absent\,]

DMM <-data[data$Light==\Absent\,]
DMM <- DMM[DMM$Flow.rate==\Medium Flow\,]
DMM <- DMM[DMM$Chlorophyll==\Medium Chlorophyll\,]
DMM <- DMM[DMM$Guano==\Absent\,]

DMH <-data[data$Light==\Absent\,]
DMH <- DMH[DMH$Flow.rate==\Medium Flow\,]
DMH <- DMH[DMH$Chlorophyll==\High Chlorophyll\,]
DMH <- DMH[DMH$Guano==\Absent\,]

DMG <-data[data$Light==\Absent\,]
DMG <- DMG[DMG$Flow.rate==\Medium Flow\,]
DMG <- DMG[DMG$Chlorophyll==\No Chlorophyll\,]
DMG <- DMG[DMG$Guano==\Present\,]
################################################################

###    Light Off, High Flow

####################################################################

DHN<-data[data$Light==\Absent\,]
DHN <- DHN[DHN$Flow.rate==\High Flow\,]
DHN <- DHN[DHN$Chlorophyll==\No Chlorophyll\,]
DHN <- DHN[DHN$Guano==\Absent\,]

DHL<-data[data$Light==\Absent\,]
DHL <- DHL[DHL$Flow.rate==\High Flow\,]
DHL <- DHL[DHL$Chlorophyll==\Low Chlorophyll\,]
DHL <- DHL[DHL$Guano==\Absent\,]

DHM<-data[data$Light==\Absent\,]
DHM <- DHM[DHM$Flow.rate==\High Flow\,]
DHM <- DHM[DHM$Chlorophyll==\Medium Chlorophyll\,]
DHM <- DHM[DHM$Guano==\Absent\,]

DHH<-data[data$Light==\Absent\,]
DHH <- DHH[DHH$Flow.rate==\High Flow\,]
DHH <- DHH[DHH$Chlorophyll==\High Chlorophyll\,]
DHH <- DHH[DHH$Guano==\Absent\,]

DHG<-data[data$Light==\Absent\,]
DHG <- DHG[DHG$Flow.rate==\High Flow\,]
DHG <- DHG[DHG$Chlorophyll==\No Chlorophyll\,]
DHG <- DHG[DHG$Guano==\Present\,]
################################################################


###    Light Off, Extreme Flow

####################################################################

DEN<-data[data$Light==\Absent\,]
DEN <- DEN[DEN$Flow.rate==\Extreme Flow\,]
DEN <- DEN[DEN$Chlorophyll==\No Chlorophyll\,]
DEN <- DEN[DEN$Guano==\Absent\,]

DEL<-data[data$Light==\Absent\,]
DEL <- DEL[DEL$Flow.rate==\Extreme Flow\,]
DEL <- DEL[DEL$Chlorophyll==\Low Chlorophyll\,]
DEL <- DEL[DEL$Guano==\Absent\,]

DEM<-data[data$Light==\Absent\,]
DEM <- DEM[DEM$Flow.rate==\Extreme Flow\,]
DEM <- DEM[DEM$Chlorophyll==\Medium Chlorophyll\,]
DEM <- DEM[DEM$Guano==\Absent\,]

DEH<-data[data$Light==\Absent\,]
DEH <- DEH[DEH$Flow.rate==\Extreme Flow\,]
DEH <- DEH[DEH$Chlorophyll==\High Chlorophyll\,]
DEH <- DEH[DEH$Guano==\Absent\,]

DEG<-data[data$Light==\Absent\,]
DEG <- DEG[DEG$Flow.rate==\Extreme Flow\,]
DEG <- DEG[DEG$Chlorophyll==\No Chlorophyll\,]
DEG <- DEG[DEG$Guano==\Present\,]

<!-- rnb-source-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->

Run Loop for each set of conditions

Below section has rm for conditions and droplevels for factors at end


<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuTExMIDwtIGRyb3BsZXZlbHMoTExMKVxuc3RyKExMTClcblxuYGBgXG5gYGAifQ== -->

```r
```r
LLL <- droplevels(LLL)
str(LLL)

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiJ2RhdGEuZnJhbWUnOlx0MTQzMjgyIG9icy4gb2YgIDQ4IHZhcmlhYmxlczpcbiAkIERhdGUgICAgICAgICAgICAgICAgIDogY2hyICBcXDIwMTkxMTMwXFwgXFwyMDE5MTEzMFxcIFxcMjAxOTExMzBcXCBcXDIwMTkxMTMwXFwgLi4uXG4gJCBGaWxlLm5hbWUgICAgICAgICAgICA6IGNociAgXFwyMDE5MTEzMF92aWV3MV9cXCBcXDIwMTkxMTMwX3ZpZXcxX1xcIFxcMjAxOTExMzBfdmlldzFfXFwgXFwyMDE5MTEzMF92aWV3MV9cXCAuLi5cbiAkIFggICAgICAgICAgICAgICAgICAgIDogbnVtICAtMC4wNDgzIC0wLjA0NzkgLTAuMDQ3OSAtMC4wNDc5IC0wLjA0NzggLi4uXG4gJCBZICAgICAgICAgICAgICAgICAgICA6IG51bSAgMC4wMDg3IDAuMDA5NDIgMC4wMDk5NSAwLjAxMDM1IDAuMDExMTEgLi4uXG4gJCBaICAgICAgICAgICAgICAgICAgICA6IG51bSAgLTAuMDEzNiAtMC4wMTM2IC0wLjAxMzYgLTAuMDEzNiAtMC4wMTM2IC4uLlxuICQgVHJhY2sgICAgICAgICAgICAgICAgOiBpbnQgIDEgMSAxIDEgMSAxIDEgMSAxIDEgLi4uXG4gJCBWaWV3ICAgICAgICAgICAgICAgICA6IGNociAgXFwxX1xcIFxcMV9cXCBcXDFfXFwgXFwxX1xcIC4uLlxuICQgRF9WX1QgICAgICAgICAgICAgICAgOiBGYWN0b3Igdy8gMTYgbGV2ZWxzIFxcMjAxOTExMzBfMV9fMVxcLC4uOiAxIDEgMSAxIDEgMSAxIDEgMSAxIC4uLlxuICQgRF9WICAgICAgICAgICAgICAgICAgOiBGYWN0b3Igdy8gNCBsZXZlbHMgXFwyMDE5MTEzMF8xX1xcLC4uOiAxIDEgMSAxIDEgMSAxIDEgMSAxIC4uLlxuICQgRmxvdy5yYXRlICAgICAgICAgICAgOiBGYWN0b3Igdy8gMSBsZXZlbCBcXExvdyBGbG93XFw6IDEgMSAxIDEgMSAxIDEgMSAxIDEgLi4uXG4gJCBDaGxvcm9waHlsbCAgICAgICAgICA6IEZhY3RvciB3LyAxIGxldmVsIFxcTG93IENobG9yb3BoeWxsXFw6IDEgMSAxIDEgMSAxIDEgMSAxIDEgLi4uXG4gJCBHdWFubyAgICAgICAgICAgICAgICA6IEZhY3RvciB3LyAxIGxldmVsIFxcQWJzZW50XFw6IDEgMSAxIDEgMSAxIDEgMSAxIDEgLi4uXG4gJCBMaWdodCAgICAgICAgICAgICAgICA6IEZhY3RvciB3LyAxIGxldmVsIFxcUHJlc2VudFxcOiAxIDEgMSAxIDEgMSAxIDEgMSAxIC4uLlxuICQgZHggICAgICAgICAgICAgICAgICAgOiBudW0gIDAuMDAwMzUxIDAuMDAwMDk3IC0wLjAwMDAxMyAwLjAwMDAyNSAwLjAwMDU1NiAuLi5cbiAkIGR5ICAgICAgICAgICAgICAgICAgIDogbnVtICAwLjAwMDcyMyAwLjAwMDUzIDAuMDAwMzk3IDAuMDAwNzU4IDAuMDAwNjI4IC4uLlxuICQgZHogICAgICAgICAgICAgICAgICAgOiBudW0gIDAgMCAwIDAgMCAwIDAgMCAwIDAgLi4uXG4gJCBkICAgICAgICAgICAgICAgICAgICA6IG51bSAgMC4wMDA4MDQgMC4wMDA1MzggMC4wMDAzOTcgMC4wMDA3NTggMC4wMDA4MzkgLi4uXG4gJCB2eCAgICAgICAgICAgICAgICAgICA6IG51bSAgMC4wMTA1MyAwLjAwMjkxIC0wLjAwMDM5IDAuMDAwNzUgMC4wMTY2OCAuLi5cbiAkIHZ5ICAgICAgICAgICAgICAgICAgIDogbnVtICAwLjAyMTcgMC4wMTU5IDAuMDExOSAwLjAyMjcgMC4wMTg4IC4uLlxuICQgdnogICAgICAgICAgICAgICAgICAgOiBudW0gIDAgMCAwIDAgMCAwIDAgMCAwIDAgLi4uXG4gJCB2ICAgICAgICAgICAgICAgICAgICA6IG51bSAgMC4wMjQxIDAuMDE2MSAwLjAxMTkgMC4wMjI4IDAuMDI1MiAuLi5cbiAkIGhlYWRpbmcgICAgICAgICAgICAgIDogbnVtICAwLjQ1MjEgMC4xODEyIC0wLjAzMjcgMC4wMzMgMC43MjQ3IC4uLlxuICQgcGl0Y2ggICAgICAgICAgICAgICAgOiBudW0gIDAgMCAwIDAgMCAwIDAgMCAwIDAgLi4uXG4gJCB2ZWwudHVybi5hbmdsZSAgICAgICA6IG51bSAgMTA2LjgxIDE1LjUyIDEyLjI2IDMuNzYgMzkuNjMgLi4uXG4gJCB2ZWwuZmxvdyAgICAgICAgICAgICA6IG51bSAgMC42MjIgMC42MTYgMC42MTIgMC42MjMgMC42MTkgLi4uXG4gJCB0cmltLlggICAgICAgICAgICAgICA6IG51bSAgMC4yMTYgMC4yMTcgMC4yMTcgMC4yMTYgMC4yMTcgLi4uXG4gJCB4c21vb3RoICAgICAgICAgICAgICA6IG51bSAgMC4yMTYgMC4yMTYgMC4yMTYgMC4yMTYgMC4yMTYgLi4uXG4gJCB5c21vb3RoICAgICAgICAgICAgICA6IG51bSAgMC4wMTU3IDAuMDE1NyAwLjAxNTcgMC4wMTU3IDAuMDE1NyAuLi5cbiAkIHpzbW9vdGggICAgICAgICAgICAgIDogbnVtICAtMC4wMTM2IC0wLjAxMzYgLTAuMDEzNiAtMC4wMTM2IC0wLjAxMzYgLi4uXG4gJCBzbW9vdGguZHggICAgICAgICAgICA6IG51bSAgMC4wMDAxNyAwIDAuMDAwMDEgMC4wMDAwMyAwLjAwMDAxIC4uLlxuICQgc21vb3RoLmR5ICAgICAgICAgICAgOiBudW0gIDAgMCAwIDAgMCAwIDAgMCAwIDAgLi4uXG4gJCBzbW9vdGguZHogICAgICAgICAgICA6IG51bSAgMCAwIDAgMCAwIDAgMCAwIDAgMCAuLi5cbiAkIHNtb290aC5kICAgICAgICAgICAgIDogbnVtICAwLjAwMDE3IDAgMC4wMDAwMSAwLjAwMDAzIDAuMDAwMDEgLi4uXG4gJCBzbW9vdGgudnggICAgICAgICAgICA6IG51bSAgMC4wMDUxIDAgMC4wMDAzIDAuMDAwOSAwLjAwMDMgLi4uXG4gJCBzbW9vdGgudnkgICAgICAgICAgICA6IG51bSAgMCAwIDAgMCAwIDAgMCAwIDAgMCAuLi5cbiAkIHNtb290aC52eiAgICAgICAgICAgIDogbnVtICAwIDAgMCAwIDAgMCAwIDAgMCAwIC4uLlxuICQgc21vb3RoLnYgICAgICAgICAgICAgOiBudW0gIDAuMDA1MSAwIDAuMDAwMyAwLjAwMDkgMC4wMDAzIC4uLlxuICQgc21vb3RoLmhlYWRpbmcgICAgICAgOiBudW0gIDEuNTcgMCAxLjU3IDEuNTcgMS41NyAuLi5cbiAkIGhlYWRpbmcucGkgICAgICAgICAgIDogbnVtICA5MCAwIDkwIDkwIDkwIDkwIDAgOTAgMCA5MCAuLi5cbiAkIHNtb290aC5waXRjaCAgICAgICAgIDogbnVtICAwIDAgMCAwIDAgMCAwIDAgMCAwIC4uLlxuICQgcGl0Y2gucGVyZmVjdCAgICAgICAgOiBudW0gIDAgMCAwIDAgMCAwIDAgMCAwIDAgLi4uXG4gJCB0dXJuLmFuZ2xleHlzbW9vdGggICA6IG51bSAgMS41IDEuNSAxLjUgMS41IDEuNSAuLi5cbiAkIHR1cm4uYW5nbGV5enNtb290aCAgIDogbnVtICAyLjI4IDIuMjggMi4yOCAyLjI4IDIuMjggLi4uXG4gJCB0dXJuLmFuZ2xlLnNtb290aCAgICA6IG51bSAgTkEgTkEgTkEgTkEgTkEgTkEgTkEgTkEgTkEgTkEgLi4uXG4gJCB2ZWwudHVybi5hbmdsZS5zbW9vdGg6IG51bSAgNjIuNiBOYU4gTmFOIDAgMCAuLi5cbiAkIHR1cm4uYW5nbGV4eSAgICAgICAgIDogbnVtICAtMS4zOSAtMS4zOCAtMS4zNyAtMS4zNiAtMS4zNCAuLi5cbiAkIHR1cm4uYW5nbGV5eiAgICAgICAgIDogbnVtICAyLjU3IDIuNTMgMi41MSAyLjQ5IDIuNDYgLi4uXG4gJCB0dXJuLmFuZ2xlICAgICAgICAgICA6IG51bSAgMTA2LjgxIDE1LjUyIDEyLjI2IDMuNzYgMzkuNjMgLi4uXG4gLSBhdHRyKCosIFxcbmEuYWN0aW9uXFwpPSAnb21pdCcgTmFtZWQgaW50IFsxOjEyNzM0NzZdIDEgMiAzIDQgNSA2IDcgOCA5IDEwIC4uLlxuICAuLi0gYXR0cigqLCBcXG5hbWVzXFwpPSBjaHIgWzE6MTI3MzQ3Nl0gXFwxOVxcIFxcMzFcXCBcXDQ3XFwgXFw1NlxcIC4uLlxuIn0= -->

‘data.frame’: 143282 obs. of 48 variables: $ Date : chr \20191130 \20191130 \20191130 \20191130 … $ File.name : chr \20191130_view1_ \20191130_view1_ \20191130_view1_ \20191130_view1_ … $ X : num -0.0483 -0.0479 -0.0479 -0.0479 -0.0478 … $ Y : num 0.0087 0.00942 0.00995 0.01035 0.01111 … $ Z : num -0.0136 -0.0136 -0.0136 -0.0136 -0.0136 … $ Track : int 1 1 1 1 1 1 1 1 1 1 … $ View : chr \1_ \1_ \1_ \1_ … $ D_V_T : Factor w/ 16 levels \20191130_1_1,..: 1 1 1 1 1 1 1 1 1 1 … $ D_V : Factor w/ 4 levels \20191130_1,..: 1 1 1 1 1 1 1 1 1 1 … $ Flow.rate : Factor w/ 1 level Flow: 1 1 1 1 1 1 1 1 1 1 … $ Chlorophyll : Factor w/ 1 level Chlorophyll: 1 1 1 1 1 1 1 1 1 1 … $ Guano : Factor w/ 1 level : 1 1 1 1 1 1 1 1 1 1 … $ Light : Factor w/ 1 level : 1 1 1 1 1 1 1 1 1 1 … $ dx : num 0.000351 0.000097 -0.000013 0.000025 0.000556 … $ dy : num 0.000723 0.00053 0.000397 0.000758 0.000628 … $ dz : num 0 0 0 0 0 0 0 0 0 0 … $ d : num 0.000804 0.000538 0.000397 0.000758 0.000839 … $ vx : num 0.01053 0.00291 -0.00039 0.00075 0.01668 … $ vy : num 0.0217 0.0159 0.0119 0.0227 0.0188 … $ vz : num 0 0 0 0 0 0 0 0 0 0 … $ v : num 0.0241 0.0161 0.0119 0.0228 0.0252 … $ heading : num 0.4521 0.1812 -0.0327 0.033 0.7247 … $ pitch : num 0 0 0 0 0 0 0 0 0 0 … $ vel.turn.angle : num 106.81 15.52 12.26 3.76 39.63 … $ vel.flow : num 0.622 0.616 0.612 0.623 0.619 … $ trim.X : num 0.216 0.217 0.217 0.216 0.217 … $ xsmooth : num 0.216 0.216 0.216 0.216 0.216 … $ ysmooth : num 0.0157 0.0157 0.0157 0.0157 0.0157 … $ zsmooth : num -0.0136 -0.0136 -0.0136 -0.0136 -0.0136 … $ smooth.dx : num 0.00017 0 0.00001 0.00003 0.00001 … $ smooth.dy : num 0 0 0 0 0 0 0 0 0 0 … $ smooth.dz : num 0 0 0 0 0 0 0 0 0 0 … $ smooth.d : num 0.00017 0 0.00001 0.00003 0.00001 … $ smooth.vx : num 0.0051 0 0.0003 0.0009 0.0003 … $ smooth.vy : num 0 0 0 0 0 0 0 0 0 0 … $ smooth.vz : num 0 0 0 0 0 0 0 0 0 0 … $ smooth.v : num 0.0051 0 0.0003 0.0009 0.0003 … $ smooth.heading : num 1.57 0 1.57 1.57 1.57 … $ heading.pi : num 90 0 90 90 90 90 0 90 0 90 … $ smooth.pitch : num 0 0 0 0 0 0 0 0 0 0 … $ pitch.perfect : num 0 0 0 0 0 0 0 0 0 0 … $ turn.anglexysmooth : num 1.5 1.5 1.5 1.5 1.5 … $ turn.angleyzsmooth : num 2.28 2.28 2.28 2.28 2.28 … $ turn.angle.smooth : num NA NA NA NA NA NA NA NA NA NA … $ vel.turn.angle.smooth: num 62.6 NaN NaN 0 0 … $ turn.anglexy : num -1.39 -1.38 -1.37 -1.36 -1.34 … $ turn.angleyz : num 2.57 2.53 2.51 2.49 2.46 … $ turn.angle : num 106.81 15.52 12.26 3.76 39.63 … - attr(, .action)= ‘omit’ Named int [1:1273476] 1 2 3 4 5 6 7 8 9 10 … ..- attr(, )= chr [1:1273476] \19 \31 \47 \56 …

<!-- rnb-output-end -->

<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxubGlicmFyeShkcGx5cilcbkxMTF9jYWxjdWxhdGUgPC0gZGF0YS5mcmFtZSgpXG5mb3IgKGR2dCBpbiB1bmlxdWUoTExMJERfVl9UKSkge1xuICBkYXRhIDwtIExMTCAlPiUgc3Vic2V0KERfVl9UPT1kdnQpXG4gIGZvciAoaSBpbiAyOm5yb3coZGF0YSkpIHtcbiAgICBzdWJkYXRhIDwtIGRhdGFbKChpLTEpOmkpLF1cbiAgICByZWxfcG9pbnRfeCA8LSBzdWJkYXRhWzEsXFxYXFxdXG4gICAgcmVsX3BvaW50X3kgPC0gc3ViZGF0YVsxLFxcWVxcXVxuICAgIGNhbF9wb2ludF94IDwtIHN1YmRhdGFbMixcXFhcXF1cbiAgICBjYWxfcG9pbnRfeSA8LSBzdWJkYXRhWzIsXFxZXFxdXG4gICAgc2xvcGUgPC0gKGNhbF9wb2ludF95LSByZWxfcG9pbnRfeSkvKGNhbF9wb2ludF94LSByZWxfcG9pbnRfeClcbiAgICBhbmdsZSA8LSBhdGFuKHNsb3BlKSozNjAvcGlcbiAgICB0bXAgPC0gZGF0YS5mcmFtZShEX1ZfVD1kdnQsaSxyZWxfcG9pbnRfeCxyZWxfcG9pbnRfeSxjYWxfcG9pbnRfeCxjYWxfcG9pbnRfeSxzbG9wZSxhbmdsZSlcbiAgICBMTExfY2FsY3VsYXRlIDwtIHJiaW5kKExMTF9jYWxjdWxhdGUsdG1wKVxuICB9XG4gIHByaW50KGR2dClcbn1cbmBgYFxuYGBgIn0= -->

```r
```r
library(dplyr)
LLL_calculate <- data.frame()
for (dvt in unique(LLL$D_V_T)) {
  data <- LLL %>% subset(D_V_T==dvt)
  for (i in 2:nrow(data)) {
    subdata <- data[((i-1):i),]
    rel_point_x <- subdata[1,\X\]
    rel_point_y <- subdata[1,\Y\]
    cal_point_x <- subdata[2,\X\]
    cal_point_y <- subdata[2,\Y\]
    slope <- (cal_point_y- rel_point_y)/(cal_point_x- rel_point_x)
    angle <- atan(slope)*360/pi
    tmp <- data.frame(D_V_T=dvt,i,rel_point_x,rel_point_y,cal_point_x,cal_point_y,slope,angle)
    LLL_calculate <- rbind(LLL_calculate,tmp)
  }
  print(dvt)
}

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiWzFdIFxcMjAxOTExMzBfMV9fMVxcXG5bMV0gXFwyMDE5MTEzMF8xX18yXFxcblsxXSBcXDIwMTkxMTMwXzFfXzNcXFxuWzFdIFxcMjAxOTExMzBfMV9fNFxcXG5bMV0gXFwyMDE5MTEzMF8yX18xXFxcblsxXSBcXDIwMTkxMTMwXzJfXzJcXFxuWzFdIFxcMjAxOTExMzBfMl9fM1xcXG5bMV0gXFwyMDE5MTEzMF8yX180XFxcblsxXSBcXDIwMTkxMjAyXzFfXzFcXFxuWzFdIFxcMjAxOTEyMDJfMV9fMlxcXG5bMV0gXFwyMDE5MTIwMl8xX18zXFxcblsxXSBcXDIwMTkxMjAyXzFfXzRcXFxuWzFdIFxcMjAxOTEyMDJfNF9fMVxcXG5bMV0gXFwyMDE5MTIwMl80X18yXFxcblsxXSBcXDIwMTkxMjAyXzRfXzNcXFxuWzFdIFxcMjAxOTEyMDJfNF9fNFxcXG4ifQ== -->

[1] \20191130_1__1
[1] \20191130_1__2
[1] \20191130_1__3
[1] \20191130_1__4
[1] \20191130_2__1
[1] \20191130_2__2
[1] \20191130_2__3
[1] \20191130_2__4
[1] \20191202_1__1
[1] \20191202_1__2
[1] \20191202_1__3
[1] \20191202_1__4
[1] \20191202_4__1
[1] \20191202_4__2
[1] \20191202_4__3
[1] \20191202_4__4

<!-- rnb-output-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->


Above section has rm for conditions and droplevels for factors at end


<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG4gIyMjIHNldHRpbmcgZGF0YSBhcyBjaXJjdWxhclxuIyMgICBMaWdodHMgb25cblxuaGVhZChMTk4pXG5cbkxOTiA8LSBjaXJjdWxhcihMTk4kaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI2Fzc2lnbiBMTk4gc3Vic2V0IHRvIFxcTE5OXFwgdmFyaWFibGVcbkxOTCA8LSBjaXJjdWxhcihMTkwkaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xOTFxuTE5NIDwtIGNpcmN1bGFyKExOTSRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTE5NXG5MTkggPC0gY2lyY3VsYXIoTE5IJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTkhcbkxORyA8LSBjaXJjdWxhcihMTkckaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xOR1xuXG5MTE4gPC0gY2lyY3VsYXIoTExOJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTE5cbkxMTCA8LSBjaXJjdWxhcihMTEwkaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xMTFxuTExNIDwtIGNpcmN1bGFyKExMTSRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTExNXG5MTEggPC0gY2lyY3VsYXIoTExIJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTEhcbkxMRyA8LSBjaXJjdWxhcihMTEckaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xMR1xuXG5MTU4gPC0gY2lyY3VsYXIoTE1OJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTU5cbkxNTCA8LSBjaXJjdWxhcihMTUwkaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xNTFxuTE1NIDwtIGNpcmN1bGFyKExNTSRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTE1NXG5MTUggPC0gY2lyY3VsYXIoTE1IJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTUhcbkxNRyA8LSBjaXJjdWxhcihMTUckaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xNR1xuXG5MSE4gPC0gY2lyY3VsYXIoTEhOJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMSE5cbkxITCA8LSBjaXJjdWxhcihMSEwkaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xITFxuTEhNIDwtIGNpcmN1bGFyKExITSRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTEhNXG5MSEggPC0gY2lyY3VsYXIoTEhIJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMSEhcbkxIRyA8LSBjaXJjdWxhcihMSEckaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xIR1xuXG5MRU4gPC0gY2lyY3VsYXIoTEVOJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMRU5cbkxFTCA8LSBjaXJjdWxhcihMRUwkaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xFTFxuTEVNIDwtIGNpcmN1bGFyKExFTSRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTEVNXG5MRUggPC0gY2lyY3VsYXIoTEVIJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMRUhcbkxFRyA8LSBjaXJjdWxhcihMRUckaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xFR1xuXG4jIyMjIyMjIyMjIyMgIExpZ2h0cyBPZmZcblxuRE5OIDwtIGNpcmN1bGFyKEROTiRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRE5OXG5ETkwgPC0gY2lyY3VsYXIoRE5MJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETkxcbkROTSA8LSBjaXJjdWxhcihETk0kaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0ROTVxuRE5IIDwtIGNpcmN1bGFyKEROSCRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRE5IXG5ETkcgPC0gY2lyY3VsYXIoRE5HJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETkdcblxuRExOIDwtIGNpcmN1bGFyKERMTiRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRExOXG5ETEwgPC0gY2lyY3VsYXIoRExMJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETExcbkRMTSA8LSBjaXJjdWxhcihETE0kaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RMTVxuRExIIDwtIGNpcmN1bGFyKERMSCRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRExIXG5ETEcgPC0gY2lyY3VsYXIoRExHJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETEdcblxuRE1OIDwtIGNpcmN1bGFyKERNTiRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRE1OXG5ETUwgPC0gY2lyY3VsYXIoRE1MJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETUxcbkRNTSA8LSBjaXJjdWxhcihETU0kaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RNTVxuRE1IIDwtIGNpcmN1bGFyKERNSCRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRE1IXG5ETUcgPC0gY2lyY3VsYXIoRE1HJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETUdcblxuREhOIDwtIGNpcmN1bGFyKERITiRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjREhOXG5ESEwgPC0gY2lyY3VsYXIoREhMJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNESExcbkRITSA8LSBjaXJjdWxhcihESE0kaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RITVxuREhIIDwtIGNpcmN1bGFyKERISCRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjREhIXG5ESEcgPC0gY2lyY3VsYXIoREhHJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNESEdcblxuREVOIDwtIGNpcmN1bGFyKERFTiRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjREVOXG5ERUwgPC0gY2lyY3VsYXIoREVMJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNERUxcbkRFTSA8LSBjaXJjdWxhcihERU0kaGVhZGluZy5waSwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RFTVxuREVIIDwtIGNpcmN1bGFyKERFSCRoZWFkaW5nLnBpLCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjREVIXG5ERUcgPC0gY2lyY3VsYXIoREVHJGhlYWRpbmcucGksIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNERUdcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbmBgYFxuYGBgIn0= -->

```r
```r
##############################################################################
 ### setting data as circular
##   Lights on

head(LNN)

LNN <- circular(LNN$heading.pi, units=\degrees\, template=\geographics\) #assign LNN subset to \LNN\ variable
LNL <- circular(LNL$heading.pi, units=\degrees\, template=\geographics\) #LNL
LNM <- circular(LNM$heading.pi, units=\degrees\, template=\geographics\) #LNM
LNH <- circular(LNH$heading.pi, units=\degrees\, template=\geographics\) #LNH
LNG <- circular(LNG$heading.pi, units=\degrees\, template=\geographics\) #LNG

LLN <- circular(LLN$heading.pi, units=\degrees\, template=\geographics\) #LLN
LLL <- circular(LLL$heading.pi, units=\degrees\, template=\geographics\) #LLL
LLM <- circular(LLM$heading.pi, units=\degrees\, template=\geographics\) #LLM
LLH <- circular(LLH$heading.pi, units=\degrees\, template=\geographics\) #LLH
LLG <- circular(LLG$heading.pi, units=\degrees\, template=\geographics\) #LLG

LMN <- circular(LMN$heading.pi, units=\degrees\, template=\geographics\) #LMN
LML <- circular(LML$heading.pi, units=\degrees\, template=\geographics\) #LML
LMM <- circular(LMM$heading.pi, units=\degrees\, template=\geographics\) #LMM
LMH <- circular(LMH$heading.pi, units=\degrees\, template=\geographics\) #LMH
LMG <- circular(LMG$heading.pi, units=\degrees\, template=\geographics\) #LMG

LHN <- circular(LHN$heading.pi, units=\degrees\, template=\geographics\) #LHN
LHL <- circular(LHL$heading.pi, units=\degrees\, template=\geographics\) #LHL
LHM <- circular(LHM$heading.pi, units=\degrees\, template=\geographics\) #LHM
LHH <- circular(LHH$heading.pi, units=\degrees\, template=\geographics\) #LHH
LHG <- circular(LHG$heading.pi, units=\degrees\, template=\geographics\) #LHG

LEN <- circular(LEN$heading.pi, units=\degrees\, template=\geographics\) #LEN
LEL <- circular(LEL$heading.pi, units=\degrees\, template=\geographics\) #LEL
LEM <- circular(LEM$heading.pi, units=\degrees\, template=\geographics\) #LEM
LEH <- circular(LEH$heading.pi, units=\degrees\, template=\geographics\) #LEH
LEG <- circular(LEG$heading.pi, units=\degrees\, template=\geographics\) #LEG

############  Lights Off

DNN <- circular(DNN$heading.pi, units=\degrees\, template=\geographics\) #DNN
DNL <- circular(DNL$heading.pi, units=\degrees\, template=\geographics\) #DNL
DNM <- circular(DNM$heading.pi, units=\degrees\, template=\geographics\) #DNM
DNH <- circular(DNH$heading.pi, units=\degrees\, template=\geographics\) #DNH
DNG <- circular(DNG$heading.pi, units=\degrees\, template=\geographics\) #DNG

DLN <- circular(DLN$heading.pi, units=\degrees\, template=\geographics\) #DLN
DLL <- circular(DLL$heading.pi, units=\degrees\, template=\geographics\) #DLL
DLM <- circular(DLM$heading.pi, units=\degrees\, template=\geographics\) #DLM
DLH <- circular(DLH$heading.pi, units=\degrees\, template=\geographics\) #DLH
DLG <- circular(DLG$heading.pi, units=\degrees\, template=\geographics\) #DLG

DMN <- circular(DMN$heading.pi, units=\degrees\, template=\geographics\) #DMN
DML <- circular(DML$heading.pi, units=\degrees\, template=\geographics\) #DML
DMM <- circular(DMM$heading.pi, units=\degrees\, template=\geographics\) #DMM
DMH <- circular(DMH$heading.pi, units=\degrees\, template=\geographics\) #DMH
DMG <- circular(DMG$heading.pi, units=\degrees\, template=\geographics\) #DMG

DHN <- circular(DHN$heading.pi, units=\degrees\, template=\geographics\) #DHN
DHL <- circular(DHL$heading.pi, units=\degrees\, template=\geographics\) #DHL
DHM <- circular(DHM$heading.pi, units=\degrees\, template=\geographics\) #DHM
DHH <- circular(DHH$heading.pi, units=\degrees\, template=\geographics\) #DHH
DHG <- circular(DHG$heading.pi, units=\degrees\, template=\geographics\) #DHG

DEN <- circular(DEN$heading.pi, units=\degrees\, template=\geographics\) #DEN
DEL <- circular(DEL$heading.pi, units=\degrees\, template=\geographics\) #DEL
DEM <- circular(DEM$heading.pi, units=\degrees\, template=\geographics\) #DEM
DEH <- circular(DEH$heading.pi, units=\degrees\, template=\geographics\) #DEH
DEG <- circular(DEG$heading.pi, units=\degrees\, template=\geographics\) #DEG
######################################################################################

<!-- rnb-source-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->




<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xubWVhbihMTk4sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxOTi5tZWFuIDwtIG1lYW4oTE5OLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExOTiwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KSAgIyMjIGxhcmdlciBzdGFjayBudW1iZXIgPSBtb3JlIHpvb21lZCBvdXRcbmFycm93cy5jaXJjdWxhcihMTk4ubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExOTCwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTE5MLm1lYW4gPC0gbWVhbihMTkwsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTE5MLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTE5MLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMTk0sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxOTS5tZWFuIDwtIG1lYW4oTE5NLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExOTSwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExOTS5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTE5ILCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MTkgubWVhbiA8LSBtZWFuKExOSCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMTkgsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMTkgubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExORywgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTE5HLm1lYW4gPC0gbWVhbihMTkcsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTE5HLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTE5HLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuICAgICAgIyMgTGlnaHRzIE9uIExvdyBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbm1lYW4oTExOLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MTE4ubWVhbiA8LSBtZWFuKExMTiwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMTE4sIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMTE4ubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExMTCwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTExMLm1lYW4gPC0gbWVhbihMTEwsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTExMLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTExMLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMTE0sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxMTS5tZWFuIDwtIG1lYW4oTExNLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExMTSwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExMTS5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTExILCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MTEgubWVhbiA8LSBtZWFuKExMSCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMTEgsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMTEgubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExMRywgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTExHLm1lYW4gPC0gbWVhbihMTEcsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTExHLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTExHLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG4gICAgICAjIyBMaWdodHMgT24gTWVkaXVtIEZsb3dcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xubWVhbihMTU4sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxNTi5tZWFuIDwtIG1lYW4oTE1OLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExNTiwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExNTi5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTE1MLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MTUwubWVhbiA8LSBtZWFuKExNTCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMTUwsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMTUwubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExNTSwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTE1NLm1lYW4gPC0gbWVhbihMTU0sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTE1NLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTE1NLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMTUgsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxNSC5tZWFuIDwtIG1lYW4oTE1ILCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExNSCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExNSC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTE1HLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MTUcubWVhbiA8LSBtZWFuKExNRywgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMTUcsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMTUcubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbiAgICAgICMjIExpZ2h0cyBPbiBIaWdoIEZsb3dcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xubWVhbihMSE4sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxITi5tZWFuIDwtIG1lYW4oTEhOLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExITiwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExITi5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTEhMLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MSEwubWVhbiA8LSBtZWFuKExITCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMSEwsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMSEwubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExITSwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTEhNLm1lYW4gPC0gbWVhbihMSE0sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTEhNLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTEhNLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMSEgsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxISC5tZWFuIDwtIG1lYW4oTEhILCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExISCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExISC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTEhHLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MSEcubWVhbiA8LSBtZWFuKExIRywgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMSEcsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMSEcubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5cblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuICAgICAgIyMgTGlnaHRzIE9uIEV4dHJlbWUgRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5tZWFuKExFTiwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTEVOLm1lYW4gPC0gbWVhbihMRU4sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTEVOLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTEVOLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMRUwsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxFTC5tZWFuIDwtIG1lYW4oTEVMLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExFTCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExFTC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTEVNLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MRU0ubWVhbiA8LSBtZWFuKExFTSwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMRU0sIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMRU0ubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExFSCwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTEVILm1lYW4gPC0gbWVhbihMRUgsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTEVILCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTEVILm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMRUcsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxFRy5tZWFuIDwtIG1lYW4oTEVHLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExFRywgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExFRy5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbiAgICAgICMjIExpZ2h0cyBPZmYgTm8gRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5tZWFuKEROTiwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuRE5OLm1lYW4gPC0gbWVhbihETk4sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoRE5OLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpICAjIyMgbGFyZ2VyIHN0YWNrIG51bWJlciA9IG1vcmUgem9vbWVkIG91dFxuYXJyb3dzLmNpcmN1bGFyKEROTi5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oRE5MLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ETkwubWVhbiA8LSBtZWFuKEROTCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihETkwsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihETkwubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKEROTSwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuRE5NLm1lYW4gPC0gbWVhbihETk0sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoRE5NLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoRE5NLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihETkgsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkROSC5tZWFuIDwtIG1lYW4oRE5ILCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKEROSCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKEROSC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oRE5HLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ETkcubWVhbiA8LSBtZWFuKERORywgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihETkcsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihETkcubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG4gICAgICAjIyBMaWdodHMgT2ZmIExvdyBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbm1lYW4oRExOLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ETE4ubWVhbiA8LSBtZWFuKERMTiwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihETE4sIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihETE4ubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKERMTCwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuRExMLm1lYW4gPC0gbWVhbihETEwsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoRExMLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoRExMLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihETE0sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRMTS5tZWFuIDwtIG1lYW4oRExNLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERMTSwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERMTS5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oRExILCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ETEgubWVhbiA8LSBtZWFuKERMSCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihETEgsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihETEgubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKERMRywgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuRExHLm1lYW4gPC0gbWVhbihETEcsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoRExHLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoRExHLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG4gICAgICAjIyBMaWdodHMgT24gTWVkaXVtIEZsb3dcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xubWVhbihETU4sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRNTi5tZWFuIDwtIG1lYW4oRE1OLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERNTiwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERNTi5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oRE1MLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ETUwubWVhbiA8LSBtZWFuKERNTCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihETUwsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihETUwubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKERNTSwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuRE1NLm1lYW4gPC0gbWVhbihETU0sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoRE1NLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoRE1NLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihETUgsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRNSC5tZWFuIDwtIG1lYW4oRE1ILCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERNSCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERNSC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oRE1HLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ETUcubWVhbiA8LSBtZWFuKERNRywgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihETUcsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihETUcubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbiAgICAgICMjIExpZ2h0cyBPZmYgSGlnaCBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbm1lYW4oREhOLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ESE4ubWVhbiA8LSBtZWFuKERITiwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihESE4sIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihESE4ubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKERITCwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuREhMLm1lYW4gPC0gbWVhbihESEwsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoREhMLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoREhMLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihESE0sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRITS5tZWFuIDwtIG1lYW4oREhNLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERITSwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERITS5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oREhILCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ESEgubWVhbiA8LSBtZWFuKERISCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihESEgsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihESEgubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKERIRywgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuREhHLm1lYW4gPC0gbWVhbihESEcsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoREhHLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoREhHLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuICAgICAgIyMgTGlnaHRzIE9uIEV4dHJlbWUgRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5tZWFuKERFTiwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuREVOLm1lYW4gPC0gbWVhbihERU4sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoREVOLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoREVOLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihERUwsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRFTC5tZWFuIDwtIG1lYW4oREVMLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERFTCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERFTC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oREVNLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ERU0ubWVhbiA8LSBtZWFuKERFTSwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihERU0sIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihERU0ubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKERFSCwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuREVILm1lYW4gPC0gbWVhbihERUgsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoREVILCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoREVILm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihERUcsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRFRy5tZWFuIDwtIG1lYW4oREVHLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERFRywgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KSAgIyMjIGxhcmdlciBzdGFjayBudW1iZXIgPSBtb3JlIHpvb21lZCBvdXRcbmFycm93cy5jaXJjdWxhcihERUcubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuYGBgXG5gYGAifQ== -->

```r
```r
############################################################################
mean(LNN, na.rm = TRUE) #remove NAs from dataset, then find mean 
LNN.mean <- mean(LNN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LNN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)  ### larger stack number = more zoomed out
arrows.circular(LNN.mean) #add mean to plot
###########################################################################

mean(LNL, na.rm = TRUE) #remove NAs from dataset, then find mean 
LNL.mean <- mean(LNL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LNL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LNL.mean) #add mean to plot
###########################################################################

mean(LNM, na.rm = TRUE) #remove NAs from dataset, then find mean 
LNM.mean <- mean(LNM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LNM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LNM.mean) #add mean to plot
###########################################################################

mean(LNH, na.rm = TRUE) #remove NAs from dataset, then find mean 
LNH.mean <- mean(LNH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LNH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LNH.mean) #add mean to plot
###########################################################################

mean(LNG, na.rm = TRUE) #remove NAs from dataset, then find mean 
LNG.mean <- mean(LNG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LNG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LNG.mean) #add mean to plot
###########################################################################

#########################################################################
      ## Lights On Low Flow

############################################################################
mean(LLN, na.rm = TRUE) #remove NAs from dataset, then find mean 
LLN.mean <- mean(LLN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LLN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LLN.mean) #add mean to plot
###########################################################################

mean(LLL, na.rm = TRUE) #remove NAs from dataset, then find mean 
LLL.mean <- mean(LLL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LLL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LLL.mean) #add mean to plot
###########################################################################

mean(LLM, na.rm = TRUE) #remove NAs from dataset, then find mean 
LLM.mean <- mean(LLM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LLM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LLM.mean) #add mean to plot
###########################################################################

mean(LLH, na.rm = TRUE) #remove NAs from dataset, then find mean 
LLH.mean <- mean(LLH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LLH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LLH.mean) #add mean to plot
###########################################################################

mean(LLG, na.rm = TRUE) #remove NAs from dataset, then find mean 
LLG.mean <- mean(LLG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LLG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LLG.mean) #add mean to plot
###########################################################################


#########################################################################
      ## Lights On Medium Flow

############################################################################
mean(LMN, na.rm = TRUE) #remove NAs from dataset, then find mean 
LMN.mean <- mean(LMN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LMN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LMN.mean) #add mean to plot
###########################################################################

mean(LML, na.rm = TRUE) #remove NAs from dataset, then find mean 
LML.mean <- mean(LML, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LML, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LML.mean) #add mean to plot
###########################################################################

mean(LMM, na.rm = TRUE) #remove NAs from dataset, then find mean 
LMM.mean <- mean(LMM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LMM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LMM.mean) #add mean to plot
###########################################################################

mean(LMH, na.rm = TRUE) #remove NAs from dataset, then find mean 
LMH.mean <- mean(LMH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LMH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LMH.mean) #add mean to plot
###########################################################################

mean(LMG, na.rm = TRUE) #remove NAs from dataset, then find mean 
LMG.mean <- mean(LMG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LMG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LMG.mean) #add mean to plot
###########################################################################


#########################################################################
      ## Lights On High Flow

############################################################################
mean(LHN, na.rm = TRUE) #remove NAs from dataset, then find mean 
LHN.mean <- mean(LHN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LHN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LHN.mean) #add mean to plot
###########################################################################

mean(LHL, na.rm = TRUE) #remove NAs from dataset, then find mean 
LHL.mean <- mean(LHL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LHL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LHL.mean) #add mean to plot
###########################################################################

mean(LHM, na.rm = TRUE) #remove NAs from dataset, then find mean 
LHM.mean <- mean(LHM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LHM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LHM.mean) #add mean to plot
###########################################################################

mean(LHH, na.rm = TRUE) #remove NAs from dataset, then find mean 
LHH.mean <- mean(LHH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LHH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LHH.mean) #add mean to plot
###########################################################################

mean(LHG, na.rm = TRUE) #remove NAs from dataset, then find mean 
LHG.mean <- mean(LHG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LHG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LHG.mean) #add mean to plot
###########################################################################



#########################################################################
      ## Lights On Extreme Flow

############################################################################
mean(LEN, na.rm = TRUE) #remove NAs from dataset, then find mean 
LEN.mean <- mean(LEN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LEN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LEN.mean) #add mean to plot
###########################################################################

mean(LEL, na.rm = TRUE) #remove NAs from dataset, then find mean 
LEL.mean <- mean(LEL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LEL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LEL.mean) #add mean to plot
###########################################################################

mean(LEM, na.rm = TRUE) #remove NAs from dataset, then find mean 
LEM.mean <- mean(LEM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LEM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LEM.mean) #add mean to plot
###########################################################################

mean(LEH, na.rm = TRUE) #remove NAs from dataset, then find mean 
LEH.mean <- mean(LEH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LEH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LEH.mean) #add mean to plot
###########################################################################

mean(LEG, na.rm = TRUE) #remove NAs from dataset, then find mean 
LEG.mean <- mean(LEG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LEG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LEG.mean) #add mean to plot
###########################################################################

#########################################################################
      ## Lights Off No Flow

############################################################################
mean(DNN, na.rm = TRUE) #remove NAs from dataset, then find mean 
DNN.mean <- mean(DNN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DNN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)  ### larger stack number = more zoomed out
arrows.circular(DNN.mean) #add mean to plot
###########################################################################

mean(DNL, na.rm = TRUE) #remove NAs from dataset, then find mean 
DNL.mean <- mean(DNL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DNL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DNL.mean) #add mean to plot
###########################################################################

mean(DNM, na.rm = TRUE) #remove NAs from dataset, then find mean 
DNM.mean <- mean(DNM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DNM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DNM.mean) #add mean to plot
###########################################################################

mean(DNH, na.rm = TRUE) #remove NAs from dataset, then find mean 
DNH.mean <- mean(DNH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DNH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DNH.mean) #add mean to plot
###########################################################################

mean(DNG, na.rm = TRUE) #remove NAs from dataset, then find mean 
DNG.mean <- mean(DNG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DNG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DNG.mean) #add mean to plot
###########################################################################

#########################################################################
      ## Lights Off Low Flow

############################################################################
mean(DLN, na.rm = TRUE) #remove NAs from dataset, then find mean 
DLN.mean <- mean(DLN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DLN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DLN.mean) #add mean to plot
###########################################################################

mean(DLL, na.rm = TRUE) #remove NAs from dataset, then find mean 
DLL.mean <- mean(DLL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DLL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DLL.mean) #add mean to plot
###########################################################################

mean(DLM, na.rm = TRUE) #remove NAs from dataset, then find mean 
DLM.mean <- mean(DLM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DLM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DLM.mean) #add mean to plot
###########################################################################

mean(DLH, na.rm = TRUE) #remove NAs from dataset, then find mean 
DLH.mean <- mean(DLH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DLH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DLH.mean) #add mean to plot
###########################################################################

mean(DLG, na.rm = TRUE) #remove NAs from dataset, then find mean 
DLG.mean <- mean(DLG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DLG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DLG.mean) #add mean to plot
###########################################################################


#########################################################################
      ## Lights On Medium Flow

############################################################################
mean(DMN, na.rm = TRUE) #remove NAs from dataset, then find mean 
DMN.mean <- mean(DMN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DMN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DMN.mean) #add mean to plot
###########################################################################

mean(DML, na.rm = TRUE) #remove NAs from dataset, then find mean 
DML.mean <- mean(DML, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DML, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DML.mean) #add mean to plot
###########################################################################

mean(DMM, na.rm = TRUE) #remove NAs from dataset, then find mean 
DMM.mean <- mean(DMM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DMM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DMM.mean) #add mean to plot
###########################################################################

mean(DMH, na.rm = TRUE) #remove NAs from dataset, then find mean 
DMH.mean <- mean(DMH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DMH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DMH.mean) #add mean to plot
###########################################################################

mean(DMG, na.rm = TRUE) #remove NAs from dataset, then find mean 
DMG.mean <- mean(DMG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DMG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DMG.mean) #add mean to plot
###########################################################################


#########################################################################
      ## Lights Off High Flow

############################################################################
mean(DHN, na.rm = TRUE) #remove NAs from dataset, then find mean 
DHN.mean <- mean(DHN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DHN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DHN.mean) #add mean to plot
###########################################################################

mean(DHL, na.rm = TRUE) #remove NAs from dataset, then find mean 
DHL.mean <- mean(DHL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DHL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DHL.mean) #add mean to plot
###########################################################################

mean(DHM, na.rm = TRUE) #remove NAs from dataset, then find mean 
DHM.mean <- mean(DHM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DHM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DHM.mean) #add mean to plot
###########################################################################

mean(DHH, na.rm = TRUE) #remove NAs from dataset, then find mean 
DHH.mean <- mean(DHH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DHH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DHH.mean) #add mean to plot
###########################################################################

mean(DHG, na.rm = TRUE) #remove NAs from dataset, then find mean 
DHG.mean <- mean(DHG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DHG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DHG.mean) #add mean to plot
###########################################################################

#########################################################################
      ## Lights On Extreme Flow

############################################################################
mean(DEN, na.rm = TRUE) #remove NAs from dataset, then find mean 
DEN.mean <- mean(DEN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DEN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DEN.mean) #add mean to plot
###########################################################################

mean(DEL, na.rm = TRUE) #remove NAs from dataset, then find mean 
DEL.mean <- mean(DEL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DEL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DEL.mean) #add mean to plot
###########################################################################

mean(DEM, na.rm = TRUE) #remove NAs from dataset, then find mean 
DEM.mean <- mean(DEM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DEM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DEM.mean) #add mean to plot
###########################################################################

mean(DEH, na.rm = TRUE) #remove NAs from dataset, then find mean 
DEH.mean <- mean(DEH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DEH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DEH.mean) #add mean to plot
###########################################################################

mean(DEG, na.rm = TRUE) #remove NAs from dataset, then find mean 
DEG.mean <- mean(DEG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DEG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)  ### larger stack number = more zoomed out
arrows.circular(DEG.mean) #add mean to plot
###########################################################################

<!-- rnb-source-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->


and pitch......

<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuTE5OPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxOTiA8LSBMTk5bTE5OJEZsb3cucmF0ZT09XFxObyBGbG93XFwsXVxuTE5OIDwtIExOTltMTk4kQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5MTk4gPC0gTE5OW0xOTiRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxOTDwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTkwgPC0gTE5MW0xOTCRGbG93LnJhdGU9PVxcTm8gRmxvd1xcLF1cbkxOTCA8LSBMTkxbTE5MJENobG9yb3BoeWxsPT1cXExvdyBDaGxvcm9waHlsbFxcLF1cbkxOTCA8LSBMTkxbTE5MJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTE5NPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxOTSA8LSBMTk1bTE5NJEZsb3cucmF0ZT09XFxObyBGbG93XFwsXVxuTE5NIDwtIExOTVtMTk0kQ2hsb3JvcGh5bGw9PVxcTWVkaXVtIENobG9yb3BoeWxsXFwsXVxuTE5NIDwtIExOTVtMTk0kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MTkg8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTE5IIDwtIExOSFtMTkgkRmxvdy5yYXRlPT1cXE5vIEZsb3dcXCxdXG5MTkggPC0gTE5IW0xOSCRDaGxvcm9waHlsbD09XFxIaWdoIENobG9yb3BoeWxsXFwsXVxuTE5IIDwtIExOSFtMTkgkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MTkc8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTE5HIDwtIExOR1tMTkckRmxvdy5yYXRlPT1cXE5vIEZsb3dcXCxdXG5MTkcgPC0gTE5HW0xORyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkxORyA8LSBMTkdbTE5HJEd1YW5vPT1cXFByZXNlbnRcXCxdXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4jIyAgICBMaWdodHMgT24sIExvdyBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5MTE48LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTExOIDwtIExMTltMTE4kRmxvdy5yYXRlPT1cXExvdyBGbG93XFwsXVxuTExOIDwtIExMTltMTE4kQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5MTE4gPC0gTExOW0xMTiRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxMTDwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTEwgPC0gTExMW0xMTCRGbG93LnJhdGU9PVxcTG93IEZsb3dcXCxdXG5MTEwgPC0gTExMW0xMTCRDaGxvcm9waHlsbD09XFxMb3cgQ2hsb3JvcGh5bGxcXCxdXG5MTEwgPC0gTExMW0xMTCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxMTTwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTE0gPC0gTExNW0xMTSRGbG93LnJhdGU9PVxcTG93IEZsb3dcXCxdXG5MTE0gPC0gTExNW0xMTSRDaGxvcm9waHlsbD09XFxNZWRpdW0gQ2hsb3JvcGh5bGxcXCxdXG5MTE0gPC0gTExNW0xMTSRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxMSDwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTEggPC0gTExIW0xMSCRGbG93LnJhdGU9PVxcTG93IEZsb3dcXCxdXG5MTEggPC0gTExIW0xMSCRDaGxvcm9waHlsbD09XFxIaWdoIENobG9yb3BoeWxsXFwsXVxuTExIIDwtIExMSFtMTEgkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MTEc8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTExHIDwtIExMR1tMTEckRmxvdy5yYXRlPT1cXExvdyBGbG93XFwsXVxuTExHIDwtIExMR1tMTEckQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5MTEcgPC0gTExHW0xMRyRHdWFubz09XFxQcmVzZW50XFwsXVxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiMjICAgIExpZ2h0IE9uLCBNZWRpdW0gRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbkxNTjwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTU4gPC0gTE1OW0xNTiRGbG93LnJhdGU9PVxcTWVkaXVtIEZsb3dcXCxdXG5MTU4gPC0gTE1OW0xNTiRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkxNTiA8LSBMTU5bTE1OJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTE1MPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxNTCA8LSBMTUxbTE1MJEZsb3cucmF0ZT09XFxNZWRpdW0gRmxvd1xcLF1cbkxNTCA8LSBMTUxbTE1MJENobG9yb3BoeWxsPT1cXExvdyBDaGxvcm9waHlsbFxcLF1cbkxNTCA8LSBMTUxbTE1MJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTE1NPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxNTSA8LSBMTU1bTE1NJEZsb3cucmF0ZT09XFxNZWRpdW0gRmxvd1xcLF1cbkxNTSA8LSBMTU1bTE1NJENobG9yb3BoeWxsPT1cXE1lZGl1bSBDaGxvcm9waHlsbFxcLF1cbkxNTSA8LSBMTU1bTE1NJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTE1IPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxNSCA8LSBMTUhbTE1IJEZsb3cucmF0ZT09XFxNZWRpdW0gRmxvd1xcLF1cbkxNSCA8LSBMTUhbTE1IJENobG9yb3BoeWxsPT1cXEhpZ2ggQ2hsb3JvcGh5bGxcXCxdXG5MTUggPC0gTE1IW0xNSCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxNRzwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MTUcgPC0gTE1HW0xNRyRGbG93LnJhdGU9PVxcTWVkaXVtIEZsb3dcXCxdXG5MTUcgPC0gTE1HW0xNRyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkxNRyA8LSBMTUdbTE1HJEd1YW5vPT1cXFByZXNlbnRcXCxdXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiMjIyAgICBMaWdodCBPbiwgSGlnaCBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbkxITjwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MSE4gPC0gTEhOW0xITiRGbG93LnJhdGU9PVxcSGlnaCBGbG93XFwsXVxuTEhOIDwtIExITltMSE4kQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5MSE4gPC0gTEhOW0xITiRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxITDwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MSEwgPC0gTEhMW0xITCRGbG93LnJhdGU9PVxcSGlnaCBGbG93XFwsXVxuTEhMIDwtIExITFtMSEwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuTEhMIDwtIExITFtMSEwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MSE08LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTEhNIDwtIExITVtMSE0kRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkxITSA8LSBMSE1bTEhNJENobG9yb3BoeWxsPT1cXE1lZGl1bSBDaGxvcm9waHlsbFxcLF1cbkxITSA8LSBMSE1bTEhNJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTEhIPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxISCA8LSBMSEhbTEhIJEZsb3cucmF0ZT09XFxIaWdoIEZsb3dcXCxdXG5MSEggPC0gTEhIW0xISCRDaGxvcm9waHlsbD09XFxIaWdoIENobG9yb3BoeWxsXFwsXVxuTEhIIDwtIExISFtMSEgkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MSEc8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTEhHIDwtIExIR1tMSEckRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkxIRyA8LSBMSEdbTEhHJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuTEhHIDwtIExIR1tMSEckR3Vhbm89PVxcUHJlc2VudFxcLF1cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuXG4jIyMgICAgTGlnaHQgT24sIEV4dHJlbWUgRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5MRU48LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTEVOIDwtIExFTltMRU4kRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkxFTiA8LSBMRU5bTEVOJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuTEVOIDwtIExFTltMRU4kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5MRUw8LWRhdGFbZGF0YSRMaWdodD09XFxQcmVzZW50XFwsXVxuTEVMIDwtIExFTFtMRUwkRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkxFTCA8LSBMRUxbTEVMJENobG9yb3BoeWxsPT1cXExvdyBDaGxvcm9waHlsbFxcLF1cbkxFTCA8LSBMRUxbTEVMJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTEVNPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxFTSA8LSBMRU1bTEVNJEZsb3cucmF0ZT09XFxFeHRyZW1lIEZsb3dcXCxdXG5MRU0gPC0gTEVNW0xFTSRDaGxvcm9waHlsbD09XFxNZWRpdW0gQ2hsb3JvcGh5bGxcXCxdXG5MRU0gPC0gTEVNW0xFTSRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkxFSDwtZGF0YVtkYXRhJExpZ2h0PT1cXFByZXNlbnRcXCxdXG5MRUggPC0gTEVIW0xFSCRGbG93LnJhdGU9PVxcRXh0cmVtZSBGbG93XFwsXVxuTEVIIDwtIExFSFtMRUgkQ2hsb3JvcGh5bGw9PVxcSGlnaCBDaGxvcm9waHlsbFxcLF1cbkxFSCA8LSBMRUhbTEVIJEd1YW5vPT1cXEFic2VudFxcLF1cblxuTEVHPC1kYXRhW2RhdGEkTGlnaHQ9PVxcUHJlc2VudFxcLF1cbkxFRyA8LSBMRUdbTEVHJEZsb3cucmF0ZT09XFxFeHRyZW1lIEZsb3dcXCxdXG5MRUcgPC0gTEVHW0xFRyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkxFRyA8LSBMRUdbTEVHJEd1YW5vPT1cXFByZXNlbnRcXCxdXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4gICAjIyAgTGlnaHQgT2ZmLCBOTyBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbkROTjwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkROTiA8LSBETk5bRE5OJEZsb3cucmF0ZT09XFxObyBGbG93XFwsXVxuRE5OIDwtIEROTltETk4kQ2hsb3JvcGh5bGw9PVxcTm8gQ2hsb3JvcGh5bGxcXCxdXG5ETk4gPC0gRE5OW0ROTiRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkROTDwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkROTCA8LSBETkxbRE5MJEZsb3cucmF0ZT09XFxObyBGbG93XFwsXVxuRE5MIDwtIEROTFtETkwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuRE5MIDwtIEROTFtETkwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETk08LWRhdGFbZGF0YSRMaWdodD09XFxBYnNlbnRcXCxdXG5ETk0gPC0gRE5NW0ROTSRGbG93LnJhdGU9PVxcTm8gRmxvd1xcLF1cbkROTSA8LSBETk1bRE5NJENobG9yb3BoeWxsPT1cXE1lZGl1bSBDaGxvcm9waHlsbFxcLF1cbkROTSA8LSBETk1bRE5NJEd1YW5vPT1cXEFic2VudFxcLF1cblxuRE5IIDwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkROSCA8LSBETkhbRE5IJEZsb3cucmF0ZT09XFxObyBGbG93XFwsXVxuRE5IIDwtIEROSFtETkgkQ2hsb3JvcGh5bGw9PVxcSGlnaCBDaGxvcm9waHlsbFxcLF1cbkROSCA8LSBETkhbRE5IJEd1YW5vPT1cXEFic2VudFxcLF1cblxuRE5HPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE5HIDwtIEROR1tETkckRmxvdy5yYXRlPT1cXE5vIEZsb3dcXCxdXG5ETkcgPC0gRE5HW0RORyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkRORyA8LSBETkdbRE5HJEd1YW5vPT1cXFByZXNlbnRcXCxdXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4jIyAgICBMaWdodHMgT2ZmLCBMb3cgRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuRExOIDwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRMTiA8LSBETE5bRExOJEZsb3cucmF0ZT09XFxMb3cgRmxvd1xcLF1cbkRMTiA8LSBETE5bRExOJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuRExOIDwtIERMTltETE4kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETEwgPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRExMIDwtIERMTFtETEwkRmxvdy5yYXRlPT1cXExvdyBGbG93XFwsXVxuRExMIDwtIERMTFtETEwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuRExMIDwtIERMTFtETEwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETE0gPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRExNIDwtIERMTVtETE0kRmxvdy5yYXRlPT1cXExvdyBGbG93XFwsXVxuRExNIDwtIERMTVtETE0kQ2hsb3JvcGh5bGw9PVxcTWVkaXVtIENobG9yb3BoeWxsXFwsXVxuRExNIDwtIERMTVtETE0kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETEggPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRExIIDwtIERMSFtETEgkRmxvdy5yYXRlPT1cXExvdyBGbG93XFwsXVxuRExIIDwtIERMSFtETEgkQ2hsb3JvcGh5bGw9PVxcSGlnaCBDaGxvcm9waHlsbFxcLF1cbkRMSCA8LSBETEhbRExIJEd1YW5vPT1cXEFic2VudFxcLF1cblxuRExHIDwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRMRyA8LSBETEdbRExHJEZsb3cucmF0ZT09XFxMb3cgRmxvd1xcLF1cbkRMRyA8LSBETEdbRExHJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuRExHIDwtIERMR1tETEckR3Vhbm89PVxcUHJlc2VudFxcLF1cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4jIyAgICBMaWdodCBPZmYsIE1lZGl1bSBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuRE1OIDwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRNTiA8LSBETU5bRE1OJEZsb3cucmF0ZT09XFxNZWRpdW0gRmxvd1xcLF1cbkRNTiA8LSBETU5bRE1OJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuRE1OIDwtIERNTltETU4kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETUwgPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE1MIDwtIERNTFtETUwkRmxvdy5yYXRlPT1cXE1lZGl1bSBGbG93XFwsXVxuRE1MIDwtIERNTFtETUwkQ2hsb3JvcGh5bGw9PVxcTG93IENobG9yb3BoeWxsXFwsXVxuRE1MIDwtIERNTFtETUwkR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETU0gPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE1NIDwtIERNTVtETU0kRmxvdy5yYXRlPT1cXE1lZGl1bSBGbG93XFwsXVxuRE1NIDwtIERNTVtETU0kQ2hsb3JvcGh5bGw9PVxcTWVkaXVtIENobG9yb3BoeWxsXFwsXVxuRE1NIDwtIERNTVtETU0kR3Vhbm89PVxcQWJzZW50XFwsXVxuXG5ETUggPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuRE1IIDwtIERNSFtETUgkRmxvdy5yYXRlPT1cXE1lZGl1bSBGbG93XFwsXVxuRE1IIDwtIERNSFtETUgkQ2hsb3JvcGh5bGw9PVxcSGlnaCBDaGxvcm9waHlsbFxcLF1cbkRNSCA8LSBETUhbRE1IJEd1YW5vPT1cXEFic2VudFxcLF1cblxuRE1HIDwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRNRyA8LSBETUdbRE1HJEZsb3cucmF0ZT09XFxNZWRpdW0gRmxvd1xcLF1cbkRNRyA8LSBETUdbRE1HJENobG9yb3BoeWxsPT1cXE5vIENobG9yb3BoeWxsXFwsXVxuRE1HIDwtIERNR1tETUckR3Vhbm89PVxcUHJlc2VudFxcLF1cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuIyMjICAgIExpZ2h0IE9mZiwgSGlnaCBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbkRITjwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRITiA8LSBESE5bREhOJEZsb3cucmF0ZT09XFxIaWdoIEZsb3dcXCxdXG5ESE4gPC0gREhOW0RITiRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkRITiA8LSBESE5bREhOJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREhMPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREhMIDwtIERITFtESEwkRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkRITCA8LSBESExbREhMJENobG9yb3BoeWxsPT1cXExvdyBDaGxvcm9waHlsbFxcLF1cbkRITCA8LSBESExbREhMJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREhNPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREhNIDwtIERITVtESE0kRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkRITSA8LSBESE1bREhNJENobG9yb3BoeWxsPT1cXE1lZGl1bSBDaGxvcm9waHlsbFxcLF1cbkRITSA8LSBESE1bREhNJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREhIPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREhIIDwtIERISFtESEgkRmxvdy5yYXRlPT1cXEhpZ2ggRmxvd1xcLF1cbkRISCA8LSBESEhbREhIJENobG9yb3BoeWxsPT1cXEhpZ2ggQ2hsb3JvcGh5bGxcXCxdXG5ESEggPC0gREhIW0RISCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkRIRzwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRIRyA8LSBESEdbREhHJEZsb3cucmF0ZT09XFxIaWdoIEZsb3dcXCxdXG5ESEcgPC0gREhHW0RIRyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkRIRyA8LSBESEdbREhHJEd1YW5vPT1cXFByZXNlbnRcXCxdXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cblxuIyMjICAgIExpZ2h0IE9mZiwgRXh0cmVtZSBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbkRFTjwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRFTiA8LSBERU5bREVOJEZsb3cucmF0ZT09XFxFeHRyZW1lIEZsb3dcXCxdXG5ERU4gPC0gREVOW0RFTiRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkRFTiA8LSBERU5bREVOJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREVMPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREVMIDwtIERFTFtERUwkRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkRFTCA8LSBERUxbREVMJENobG9yb3BoeWxsPT1cXExvdyBDaGxvcm9waHlsbFxcLF1cbkRFTCA8LSBERUxbREVMJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREVNPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREVNIDwtIERFTVtERU0kRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkRFTSA8LSBERU1bREVNJENobG9yb3BoeWxsPT1cXE1lZGl1bSBDaGxvcm9waHlsbFxcLF1cbkRFTSA8LSBERU1bREVNJEd1YW5vPT1cXEFic2VudFxcLF1cblxuREVIPC1kYXRhW2RhdGEkTGlnaHQ9PVxcQWJzZW50XFwsXVxuREVIIDwtIERFSFtERUgkRmxvdy5yYXRlPT1cXEV4dHJlbWUgRmxvd1xcLF1cbkRFSCA8LSBERUhbREVIJENobG9yb3BoeWxsPT1cXEhpZ2ggQ2hsb3JvcGh5bGxcXCxdXG5ERUggPC0gREVIW0RFSCRHdWFubz09XFxBYnNlbnRcXCxdXG5cbkRFRzwtZGF0YVtkYXRhJExpZ2h0PT1cXEFic2VudFxcLF1cbkRFRyA8LSBERUdbREVHJEZsb3cucmF0ZT09XFxFeHRyZW1lIEZsb3dcXCxdXG5ERUcgPC0gREVHW0RFRyRDaGxvcm9waHlsbD09XFxObyBDaGxvcm9waHlsbFxcLF1cbkRFRyA8LSBERUdbREVHJEd1YW5vPT1cXFByZXNlbnRcXCxdXG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuICMjIyBzZXR0aW5nIGRhdGEgYXMgY2lyY3VsYXJcbiMjICAgTGlnaHRzIG9uXG5cbmhlYWQoTE5OKVxuXG5MTk4gPC0gY2lyY3VsYXIoTE5OJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNhc3NpZ24gTE5OIHN1YnNldCB0byBcXExOTlxcIHZhcmlhYmxlXG5MTkwgPC0gY2lyY3VsYXIoTE5MJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTkxcbkxOTSA8LSBjaXJjdWxhcihMTk0kcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xOTVxuTE5IIDwtIGNpcmN1bGFyKExOSCRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTE5IXG5MTkcgPC0gY2lyY3VsYXIoTE5HJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTkdcblxuTExOIDwtIGNpcmN1bGFyKExMTiRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTExOXG5MTEwgPC0gY2lyY3VsYXIoTExMJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTExcbkxMTSA8LSBjaXJjdWxhcihMTE0kcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xMTVxuTExIIDwtIGNpcmN1bGFyKExMSCRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTExIXG5MTEcgPC0gY2lyY3VsYXIoTExHJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTEdcblxuTE1OIDwtIGNpcmN1bGFyKExNTiRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTE1OXG5MTUwgPC0gY2lyY3VsYXIoTE1MJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTUxcbkxNTSA8LSBjaXJjdWxhcihMTU0kcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xNTVxuTE1IIDwtIGNpcmN1bGFyKExNSCRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTE1IXG5MTUcgPC0gY2lyY3VsYXIoTE1HJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMTUdcblxuTEhOIDwtIGNpcmN1bGFyKExITiRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTEhOXG5MSEwgPC0gY2lyY3VsYXIoTEhMJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMSExcbkxITSA8LSBjaXJjdWxhcihMSE0kcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xITVxuTEhIIDwtIGNpcmN1bGFyKExISCRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTEhIXG5MSEcgPC0gY2lyY3VsYXIoTEhHJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMSEdcblxuTEVOIDwtIGNpcmN1bGFyKExFTiRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTEVOXG5MRUwgPC0gY2lyY3VsYXIoTEVMJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMRUxcbkxFTSA8LSBjaXJjdWxhcihMRU0kcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0xFTVxuTEVIIDwtIGNpcmN1bGFyKExFSCRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjTEVIXG5MRUcgPC0gY2lyY3VsYXIoTEVHJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNMRUdcblxuIyMjIyMjIyMjIyMjICBMaWdodHMgT2ZmXG5cbkROTiA8LSBjaXJjdWxhcihETk4kcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0ROTlxuRE5MIDwtIGNpcmN1bGFyKEROTCRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRE5MXG5ETk0gPC0gY2lyY3VsYXIoRE5NJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETk1cbkROSCA8LSBjaXJjdWxhcihETkgkcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0ROSFxuRE5HIDwtIGNpcmN1bGFyKERORyRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRE5HXG5cbkRMTiA8LSBjaXJjdWxhcihETE4kcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RMTlxuRExMIDwtIGNpcmN1bGFyKERMTCRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRExMXG5ETE0gPC0gY2lyY3VsYXIoRExNJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETE1cbkRMSCA8LSBjaXJjdWxhcihETEgkcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RMSFxuRExHIDwtIGNpcmN1bGFyKERMRyRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRExHXG5cbkRNTiA8LSBjaXJjdWxhcihETU4kcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RNTlxuRE1MIDwtIGNpcmN1bGFyKERNTCRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRE1MXG5ETU0gPC0gY2lyY3VsYXIoRE1NJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNETU1cbkRNSCA8LSBjaXJjdWxhcihETUgkcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RNSFxuRE1HIDwtIGNpcmN1bGFyKERNRyRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjRE1HXG5cbkRITiA8LSBjaXJjdWxhcihESE4kcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RITlxuREhMIDwtIGNpcmN1bGFyKERITCRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjREhMXG5ESE0gPC0gY2lyY3VsYXIoREhNJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNESE1cbkRISCA8LSBjaXJjdWxhcihESEgkcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RISFxuREhHIDwtIGNpcmN1bGFyKERIRyRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjREhHXG5cbkRFTiA8LSBjaXJjdWxhcihERU4kcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RFTlxuREVMIDwtIGNpcmN1bGFyKERFTCRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjREVMXG5ERU0gPC0gY2lyY3VsYXIoREVNJHBpdGNoLnBlcmZlY3QsIHVuaXRzPVxcZGVncmVlc1xcLCB0ZW1wbGF0ZT1cXGdlb2dyYXBoaWNzXFwpICNERU1cbkRFSCA8LSBjaXJjdWxhcihERUgkcGl0Y2gucGVyZmVjdCwgdW5pdHM9XFxkZWdyZWVzXFwsIHRlbXBsYXRlPVxcZ2VvZ3JhcGhpY3NcXCkgI0RFSFxuREVHIDwtIGNpcmN1bGFyKERFRyRwaXRjaC5wZXJmZWN0LCB1bml0cz1cXGRlZ3JlZXNcXCwgdGVtcGxhdGU9XFxnZW9ncmFwaGljc1xcKSAjREVHXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5tZWFuKExOTiwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTE5OLm1lYW4gPC0gbWVhbihMTk4sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTE5OLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpICAjIyMgbGFyZ2VyIHN0YWNrIG51bWJlciA9IG1vcmUgem9vbWVkIG91dFxuYXJyb3dzLmNpcmN1bGFyKExOTi5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTE5MLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MTkwubWVhbiA8LSBtZWFuKExOTCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMTkwsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMTkwubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExOTSwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTE5NLm1lYW4gPC0gbWVhbihMTk0sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTE5NLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTE5NLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMTkgsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxOSC5tZWFuIDwtIG1lYW4oTE5ILCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExOSCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExOSC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTE5HLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MTkcubWVhbiA8LSBtZWFuKExORywgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMTkcsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMTkcubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG4gICAgICAjIyBMaWdodHMgT24gTG93IEZsb3dcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xubWVhbihMTE4sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxMTi5tZWFuIDwtIG1lYW4oTExOLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExMTiwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExMTi5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTExMLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MTEwubWVhbiA8LSBtZWFuKExMTCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMTEwsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMTEwubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExMTSwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTExNLm1lYW4gPC0gbWVhbihMTE0sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTExNLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTExNLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMTEgsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxMSC5tZWFuIDwtIG1lYW4oTExILCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExMSCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExMSC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTExHLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MTEcubWVhbiA8LSBtZWFuKExMRywgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMTEcsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMTEcubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbiAgICAgICMjIExpZ2h0cyBPbiBNZWRpdW0gRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5tZWFuKExNTiwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTE1OLm1lYW4gPC0gbWVhbihMTU4sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTE1OLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTE1OLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMTUwsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxNTC5tZWFuIDwtIG1lYW4oTE1MLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExNTCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExNTC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTE1NLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MTU0ubWVhbiA8LSBtZWFuKExNTSwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMTU0sIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMTU0ubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExNSCwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTE1ILm1lYW4gPC0gbWVhbihMTUgsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTE1ILCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTE1ILm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMTUcsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxNRy5tZWFuIDwtIG1lYW4oTE1HLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExNRywgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExNRy5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuICAgICAgIyMgTGlnaHRzIE9uIEhpZ2ggRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5tZWFuKExITiwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTEhOLm1lYW4gPC0gbWVhbihMSE4sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTEhOLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTEhOLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMSEwsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxITC5tZWFuIDwtIG1lYW4oTEhMLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExITCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExITC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTEhNLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MSE0ubWVhbiA8LSBtZWFuKExITSwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMSE0sIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMSE0ubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExISCwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTEhILm1lYW4gPC0gbWVhbihMSEgsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTEhILCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTEhILm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMSEcsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxIRy5tZWFuIDwtIG1lYW4oTEhHLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExIRywgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExIRy5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cblxuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG4gICAgICAjIyBMaWdodHMgT24gRXh0cmVtZSBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbm1lYW4oTEVOLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MRU4ubWVhbiA8LSBtZWFuKExFTiwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMRU4sIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMRU4ubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExFTCwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTEVMLm1lYW4gPC0gbWVhbihMRUwsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTEVMLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTEVMLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihMRU0sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkxFTS5tZWFuIDwtIG1lYW4oTEVNLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKExFTSwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKExFTS5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oTEVILCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5MRUgubWVhbiA8LSBtZWFuKExFSCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihMRUgsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihMRUgubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKExFRywgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuTEVHLm1lYW4gPC0gbWVhbihMRUcsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoTEVHLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoTEVHLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuICAgICAgIyMgTGlnaHRzIE9mZiBObyBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbm1lYW4oRE5OLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ETk4ubWVhbiA8LSBtZWFuKEROTiwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihETk4sIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNikgICMjIyBsYXJnZXIgc3RhY2sgbnVtYmVyID0gbW9yZSB6b29tZWQgb3V0XG5hcnJvd3MuY2lyY3VsYXIoRE5OLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihETkwsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkROTC5tZWFuIDwtIG1lYW4oRE5MLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKEROTCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKEROTC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oRE5NLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ETk0ubWVhbiA8LSBtZWFuKEROTSwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihETk0sIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihETk0ubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKEROSCwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuRE5ILm1lYW4gPC0gbWVhbihETkgsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoRE5ILCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoRE5ILm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihETkcsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRORy5tZWFuIDwtIG1lYW4oRE5HLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERORywgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERORy5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbiAgICAgICMjIExpZ2h0cyBPZmYgTG93IEZsb3dcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xubWVhbihETE4sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRMTi5tZWFuIDwtIG1lYW4oRExOLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERMTiwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERMTi5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oRExMLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ETEwubWVhbiA8LSBtZWFuKERMTCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihETEwsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihETEwubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKERMTSwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuRExNLm1lYW4gPC0gbWVhbihETE0sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoRExNLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoRExNLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihETEgsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRMSC5tZWFuIDwtIG1lYW4oRExILCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERMSCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERMSC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oRExHLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ETEcubWVhbiA8LSBtZWFuKERMRywgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihETEcsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihETEcubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbiAgICAgICMjIExpZ2h0cyBPbiBNZWRpdW0gRmxvd1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5tZWFuKERNTiwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuRE1OLm1lYW4gPC0gbWVhbihETU4sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoRE1OLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoRE1OLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihETUwsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRNTC5tZWFuIDwtIG1lYW4oRE1MLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERNTCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERNTC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oRE1NLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ETU0ubWVhbiA8LSBtZWFuKERNTSwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihETU0sIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihETU0ubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKERNSCwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuRE1ILm1lYW4gPC0gbWVhbihETUgsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoRE1ILCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoRE1ILm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihETUcsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRNRy5tZWFuIDwtIG1lYW4oRE1HLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERNRywgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERNRy5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuICAgICAgIyMgTGlnaHRzIE9mZiBIaWdoIEZsb3dcblxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xubWVhbihESE4sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRITi5tZWFuIDwtIG1lYW4oREhOLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERITiwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERITi5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oREhMLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ESEwubWVhbiA8LSBtZWFuKERITCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihESEwsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihESEwubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKERITSwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuREhNLm1lYW4gPC0gbWVhbihESE0sIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoREhNLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoREhNLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihESEgsIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRISC5tZWFuIDwtIG1lYW4oREhILCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERISCwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERISC5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oREhHLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ESEcubWVhbiA8LSBtZWFuKERIRywgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihESEcsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihESEcubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG4gICAgICAjIyBMaWdodHMgT24gRXh0cmVtZSBGbG93XG5cbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcbm1lYW4oREVOLCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ERU4ubWVhbiA8LSBtZWFuKERFTiwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihERU4sIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihERU4ubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKERFTCwgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuREVMLm1lYW4gPC0gbWVhbihERUwsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoREVMLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpXG5hcnJvd3MuY2lyY3VsYXIoREVMLm1lYW4pICNhZGQgbWVhbiB0byBwbG90XG4jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyNcblxubWVhbihERU0sIG5hLnJtID0gVFJVRSkgI3JlbW92ZSBOQXMgZnJvbSBkYXRhc2V0LCB0aGVuIGZpbmQgbWVhbiBcbkRFTS5tZWFuIDwtIG1lYW4oREVNLCBuYS5ybSA9IFRSVUUpICNhc3NpZ25zIHRvIHRoZSAnTE5OLm1lYW4nIG9iamVjdFxuXG5wbG90LmNpcmN1bGFyKERFTSwgc3RhY2sgPSBULCBwY2ggPSAyMCwgc2VwID0gMC4wOCwgc2hyaW5rID0gMS42KVxuYXJyb3dzLmNpcmN1bGFyKERFTS5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cbm1lYW4oREVILCBuYS5ybSA9IFRSVUUpICNyZW1vdmUgTkFzIGZyb20gZGF0YXNldCwgdGhlbiBmaW5kIG1lYW4gXG5ERUgubWVhbiA8LSBtZWFuKERFSCwgbmEucm0gPSBUUlVFKSAjYXNzaWducyB0byB0aGUgJ0xOTi5tZWFuJyBvYmplY3RcblxucGxvdC5jaXJjdWxhcihERUgsIHN0YWNrID0gVCwgcGNoID0gMjAsIHNlcCA9IDAuMDgsIHNocmluayA9IDEuNilcbmFycm93cy5jaXJjdWxhcihERUgubWVhbikgI2FkZCBtZWFuIHRvIHBsb3RcbiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjI1xuXG5tZWFuKERFRywgbmEucm0gPSBUUlVFKSAjcmVtb3ZlIE5BcyBmcm9tIGRhdGFzZXQsIHRoZW4gZmluZCBtZWFuIFxuREVHLm1lYW4gPC0gbWVhbihERUcsIG5hLnJtID0gVFJVRSkgI2Fzc2lnbnMgdG8gdGhlICdMTk4ubWVhbicgb2JqZWN0XG5cbnBsb3QuY2lyY3VsYXIoREVHLCBzdGFjayA9IFQsIHBjaCA9IDIwLCBzZXAgPSAwLjA4LCBzaHJpbmsgPSAxLjYpICAjIyMgbGFyZ2VyIHN0YWNrIG51bWJlciA9IG1vcmUgem9vbWVkIG91dFxuYXJyb3dzLmNpcmN1bGFyKERFRy5tZWFuKSAjYWRkIG1lYW4gdG8gcGxvdFxuIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjXG5cblxuYGBgXG5gYGAifQ== -->

```r
```r
LNN<-data[data$Light==\Present\,]
LNN <- LNN[LNN$Flow.rate==\No Flow\,]
LNN <- LNN[LNN$Chlorophyll==\No Chlorophyll\,]
LNN <- LNN[LNN$Guano==\Absent\,]

LNL<-data[data$Light==\Present\,]
LNL <- LNL[LNL$Flow.rate==\No Flow\,]
LNL <- LNL[LNL$Chlorophyll==\Low Chlorophyll\,]
LNL <- LNL[LNL$Guano==\Absent\,]

LNM<-data[data$Light==\Present\,]
LNM <- LNM[LNM$Flow.rate==\No Flow\,]
LNM <- LNM[LNM$Chlorophyll==\Medium Chlorophyll\,]
LNM <- LNM[LNM$Guano==\Absent\,]

LNH<-data[data$Light==\Present\,]
LNH <- LNH[LNH$Flow.rate==\No Flow\,]
LNH <- LNH[LNH$Chlorophyll==\High Chlorophyll\,]
LNH <- LNH[LNH$Guano==\Absent\,]

LNG<-data[data$Light==\Present\,]
LNG <- LNG[LNG$Flow.rate==\No Flow\,]
LNG <- LNG[LNG$Chlorophyll==\No Chlorophyll\,]
LNG <- LNG[LNG$Guano==\Present\,]
##############################################################

##    Lights On, Low Flow

###############################################################

LLN<-data[data$Light==\Present\,]
LLN <- LLN[LLN$Flow.rate==\Low Flow\,]
LLN <- LLN[LLN$Chlorophyll==\No Chlorophyll\,]
LLN <- LLN[LLN$Guano==\Absent\,]

LLL<-data[data$Light==\Present\,]
LLL <- LLL[LLL$Flow.rate==\Low Flow\,]
LLL <- LLL[LLL$Chlorophyll==\Low Chlorophyll\,]
LLL <- LLL[LLL$Guano==\Absent\,]

LLM<-data[data$Light==\Present\,]
LLM <- LLM[LLM$Flow.rate==\Low Flow\,]
LLM <- LLM[LLM$Chlorophyll==\Medium Chlorophyll\,]
LLM <- LLM[LLM$Guano==\Absent\,]

LLH<-data[data$Light==\Present\,]
LLH <- LLH[LLH$Flow.rate==\Low Flow\,]
LLH <- LLH[LLH$Chlorophyll==\High Chlorophyll\,]
LLH <- LLH[LLH$Guano==\Absent\,]

LLG<-data[data$Light==\Present\,]
LLG <- LLG[LLG$Flow.rate==\Low Flow\,]
LLG <- LLG[LLG$Chlorophyll==\No Chlorophyll\,]
LLG <- LLG[LLG$Guano==\Present\,]
#####################################################################

##    Light On, Medium Flow

######################################################################

LMN<-data[data$Light==\Present\,]
LMN <- LMN[LMN$Flow.rate==\Medium Flow\,]
LMN <- LMN[LMN$Chlorophyll==\No Chlorophyll\,]
LMN <- LMN[LMN$Guano==\Absent\,]

LML<-data[data$Light==\Present\,]
LML <- LML[LML$Flow.rate==\Medium Flow\,]
LML <- LML[LML$Chlorophyll==\Low Chlorophyll\,]
LML <- LML[LML$Guano==\Absent\,]

LMM<-data[data$Light==\Present\,]
LMM <- LMM[LMM$Flow.rate==\Medium Flow\,]
LMM <- LMM[LMM$Chlorophyll==\Medium Chlorophyll\,]
LMM <- LMM[LMM$Guano==\Absent\,]

LMH<-data[data$Light==\Present\,]
LMH <- LMH[LMH$Flow.rate==\Medium Flow\,]
LMH <- LMH[LMH$Chlorophyll==\High Chlorophyll\,]
LMH <- LMH[LMH$Guano==\Absent\,]

LMG<-data[data$Light==\Present\,]
LMG <- LMG[LMG$Flow.rate==\Medium Flow\,]
LMG <- LMG[LMG$Chlorophyll==\No Chlorophyll\,]
LMG <- LMG[LMG$Guano==\Present\,]
################################################################

###    Light On, High Flow

####################################################################

LHN<-data[data$Light==\Present\,]
LHN <- LHN[LHN$Flow.rate==\High Flow\,]
LHN <- LHN[LHN$Chlorophyll==\No Chlorophyll\,]
LHN <- LHN[LHN$Guano==\Absent\,]

LHL<-data[data$Light==\Present\,]
LHL <- LHL[LHL$Flow.rate==\High Flow\,]
LHL <- LHL[LHL$Chlorophyll==\Low Chlorophyll\,]
LHL <- LHL[LHL$Guano==\Absent\,]

LHM<-data[data$Light==\Present\,]
LHM <- LHM[LHM$Flow.rate==\High Flow\,]
LHM <- LHM[LHM$Chlorophyll==\Medium Chlorophyll\,]
LHM <- LHM[LHM$Guano==\Absent\,]

LHH<-data[data$Light==\Present\,]
LHH <- LHH[LHH$Flow.rate==\High Flow\,]
LHH <- LHH[LHH$Chlorophyll==\High Chlorophyll\,]
LHH <- LHH[LHH$Guano==\Absent\,]

LHG<-data[data$Light==\Present\,]
LHG <- LHG[LHG$Flow.rate==\High Flow\,]
LHG <- LHG[LHG$Chlorophyll==\No Chlorophyll\,]
LHG <- LHG[LHG$Guano==\Present\,]
################################################################


###    Light On, Extreme Flow

####################################################################

LEN<-data[data$Light==\Present\,]
LEN <- LEN[LEN$Flow.rate==\Extreme Flow\,]
LEN <- LEN[LEN$Chlorophyll==\No Chlorophyll\,]
LEN <- LEN[LEN$Guano==\Absent\,]

LEL<-data[data$Light==\Present\,]
LEL <- LEL[LEL$Flow.rate==\Extreme Flow\,]
LEL <- LEL[LEL$Chlorophyll==\Low Chlorophyll\,]
LEL <- LEL[LEL$Guano==\Absent\,]

LEM<-data[data$Light==\Present\,]
LEM <- LEM[LEM$Flow.rate==\Extreme Flow\,]
LEM <- LEM[LEM$Chlorophyll==\Medium Chlorophyll\,]
LEM <- LEM[LEM$Guano==\Absent\,]

LEH<-data[data$Light==\Present\,]
LEH <- LEH[LEH$Flow.rate==\Extreme Flow\,]
LEH <- LEH[LEH$Chlorophyll==\High Chlorophyll\,]
LEH <- LEH[LEH$Guano==\Absent\,]

LEG<-data[data$Light==\Present\,]
LEG <- LEG[LEG$Flow.rate==\Extreme Flow\,]
LEG <- LEG[LEG$Chlorophyll==\No Chlorophyll\,]
LEG <- LEG[LEG$Guano==\Present\,]
################################################################

#####################################################################

   ##  Light Off, NO Flow

####################################################################

DNN<-data[data$Light==\Absent\,]
DNN <- DNN[DNN$Flow.rate==\No Flow\,]
DNN <- DNN[DNN$Chlorophyll==\No Chlorophyll\,]
DNN <- DNN[DNN$Guano==\Absent\,]

DNL<-data[data$Light==\Absent\,]
DNL <- DNL[DNL$Flow.rate==\No Flow\,]
DNL <- DNL[DNL$Chlorophyll==\Low Chlorophyll\,]
DNL <- DNL[DNL$Guano==\Absent\,]

DNM<-data[data$Light==\Absent\,]
DNM <- DNM[DNM$Flow.rate==\No Flow\,]
DNM <- DNM[DNM$Chlorophyll==\Medium Chlorophyll\,]
DNM <- DNM[DNM$Guano==\Absent\,]

DNH <-data[data$Light==\Absent\,]
DNH <- DNH[DNH$Flow.rate==\No Flow\,]
DNH <- DNH[DNH$Chlorophyll==\High Chlorophyll\,]
DNH <- DNH[DNH$Guano==\Absent\,]

DNG<-data[data$Light==\Absent\,]
DNG <- DNG[DNG$Flow.rate==\No Flow\,]
DNG <- DNG[DNG$Chlorophyll==\No Chlorophyll\,]
DNG <- DNG[DNG$Guano==\Present\,]
##############################################################

##    Lights Off, Low Flow

###############################################################

DLN <-data[data$Light==\Absent\,]
DLN <- DLN[DLN$Flow.rate==\Low Flow\,]
DLN <- DLN[DLN$Chlorophyll==\No Chlorophyll\,]
DLN <- DLN[DLN$Guano==\Absent\,]

DLL <-data[data$Light==\Absent\,]
DLL <- DLL[DLL$Flow.rate==\Low Flow\,]
DLL <- DLL[DLL$Chlorophyll==\Low Chlorophyll\,]
DLL <- DLL[DLL$Guano==\Absent\,]

DLM <-data[data$Light==\Absent\,]
DLM <- DLM[DLM$Flow.rate==\Low Flow\,]
DLM <- DLM[DLM$Chlorophyll==\Medium Chlorophyll\,]
DLM <- DLM[DLM$Guano==\Absent\,]

DLH <-data[data$Light==\Absent\,]
DLH <- DLH[DLH$Flow.rate==\Low Flow\,]
DLH <- DLH[DLH$Chlorophyll==\High Chlorophyll\,]
DLH <- DLH[DLH$Guano==\Absent\,]

DLG <-data[data$Light==\Absent\,]
DLG <- DLG[DLG$Flow.rate==\Low Flow\,]
DLG <- DLG[DLG$Chlorophyll==\No Chlorophyll\,]
DLG <- DLG[DLG$Guano==\Present\,]
#####################################################################

##    Light Off, Medium Flow

######################################################################

DMN <-data[data$Light==\Absent\,]
DMN <- DMN[DMN$Flow.rate==\Medium Flow\,]
DMN <- DMN[DMN$Chlorophyll==\No Chlorophyll\,]
DMN <- DMN[DMN$Guano==\Absent\,]

DML <-data[data$Light==\Absent\,]
DML <- DML[DML$Flow.rate==\Medium Flow\,]
DML <- DML[DML$Chlorophyll==\Low Chlorophyll\,]
DML <- DML[DML$Guano==\Absent\,]

DMM <-data[data$Light==\Absent\,]
DMM <- DMM[DMM$Flow.rate==\Medium Flow\,]
DMM <- DMM[DMM$Chlorophyll==\Medium Chlorophyll\,]
DMM <- DMM[DMM$Guano==\Absent\,]

DMH <-data[data$Light==\Absent\,]
DMH <- DMH[DMH$Flow.rate==\Medium Flow\,]
DMH <- DMH[DMH$Chlorophyll==\High Chlorophyll\,]
DMH <- DMH[DMH$Guano==\Absent\,]

DMG <-data[data$Light==\Absent\,]
DMG <- DMG[DMG$Flow.rate==\Medium Flow\,]
DMG <- DMG[DMG$Chlorophyll==\No Chlorophyll\,]
DMG <- DMG[DMG$Guano==\Present\,]
################################################################

###    Light Off, High Flow

####################################################################

DHN<-data[data$Light==\Absent\,]
DHN <- DHN[DHN$Flow.rate==\High Flow\,]
DHN <- DHN[DHN$Chlorophyll==\No Chlorophyll\,]
DHN <- DHN[DHN$Guano==\Absent\,]

DHL<-data[data$Light==\Absent\,]
DHL <- DHL[DHL$Flow.rate==\High Flow\,]
DHL <- DHL[DHL$Chlorophyll==\Low Chlorophyll\,]
DHL <- DHL[DHL$Guano==\Absent\,]

DHM<-data[data$Light==\Absent\,]
DHM <- DHM[DHM$Flow.rate==\High Flow\,]
DHM <- DHM[DHM$Chlorophyll==\Medium Chlorophyll\,]
DHM <- DHM[DHM$Guano==\Absent\,]

DHH<-data[data$Light==\Absent\,]
DHH <- DHH[DHH$Flow.rate==\High Flow\,]
DHH <- DHH[DHH$Chlorophyll==\High Chlorophyll\,]
DHH <- DHH[DHH$Guano==\Absent\,]

DHG<-data[data$Light==\Absent\,]
DHG <- DHG[DHG$Flow.rate==\High Flow\,]
DHG <- DHG[DHG$Chlorophyll==\No Chlorophyll\,]
DHG <- DHG[DHG$Guano==\Present\,]
################################################################


###    Light Off, Extreme Flow

####################################################################

DEN<-data[data$Light==\Absent\,]
DEN <- DEN[DEN$Flow.rate==\Extreme Flow\,]
DEN <- DEN[DEN$Chlorophyll==\No Chlorophyll\,]
DEN <- DEN[DEN$Guano==\Absent\,]

DEL<-data[data$Light==\Absent\,]
DEL <- DEL[DEL$Flow.rate==\Extreme Flow\,]
DEL <- DEL[DEL$Chlorophyll==\Low Chlorophyll\,]
DEL <- DEL[DEL$Guano==\Absent\,]

DEM<-data[data$Light==\Absent\,]
DEM <- DEM[DEM$Flow.rate==\Extreme Flow\,]
DEM <- DEM[DEM$Chlorophyll==\Medium Chlorophyll\,]
DEM <- DEM[DEM$Guano==\Absent\,]

DEH<-data[data$Light==\Absent\,]
DEH <- DEH[DEH$Flow.rate==\Extreme Flow\,]
DEH <- DEH[DEH$Chlorophyll==\High Chlorophyll\,]
DEH <- DEH[DEH$Guano==\Absent\,]

DEG<-data[data$Light==\Absent\,]
DEG <- DEG[DEG$Flow.rate==\Extreme Flow\,]
DEG <- DEG[DEG$Chlorophyll==\No Chlorophyll\,]
DEG <- DEG[DEG$Guano==\Present\,]

##########################################################################

##############################################################################
 ### setting data as circular
##   Lights on

head(LNN)

LNN <- circular(LNN$pitch.perfect, units=\degrees\, template=\geographics\) #assign LNN subset to \LNN\ variable
LNL <- circular(LNL$pitch.perfect, units=\degrees\, template=\geographics\) #LNL
LNM <- circular(LNM$pitch.perfect, units=\degrees\, template=\geographics\) #LNM
LNH <- circular(LNH$pitch.perfect, units=\degrees\, template=\geographics\) #LNH
LNG <- circular(LNG$pitch.perfect, units=\degrees\, template=\geographics\) #LNG

LLN <- circular(LLN$pitch.perfect, units=\degrees\, template=\geographics\) #LLN
LLL <- circular(LLL$pitch.perfect, units=\degrees\, template=\geographics\) #LLL
LLM <- circular(LLM$pitch.perfect, units=\degrees\, template=\geographics\) #LLM
LLH <- circular(LLH$pitch.perfect, units=\degrees\, template=\geographics\) #LLH
LLG <- circular(LLG$pitch.perfect, units=\degrees\, template=\geographics\) #LLG

LMN <- circular(LMN$pitch.perfect, units=\degrees\, template=\geographics\) #LMN
LML <- circular(LML$pitch.perfect, units=\degrees\, template=\geographics\) #LML
LMM <- circular(LMM$pitch.perfect, units=\degrees\, template=\geographics\) #LMM
LMH <- circular(LMH$pitch.perfect, units=\degrees\, template=\geographics\) #LMH
LMG <- circular(LMG$pitch.perfect, units=\degrees\, template=\geographics\) #LMG

LHN <- circular(LHN$pitch.perfect, units=\degrees\, template=\geographics\) #LHN
LHL <- circular(LHL$pitch.perfect, units=\degrees\, template=\geographics\) #LHL
LHM <- circular(LHM$pitch.perfect, units=\degrees\, template=\geographics\) #LHM
LHH <- circular(LHH$pitch.perfect, units=\degrees\, template=\geographics\) #LHH
LHG <- circular(LHG$pitch.perfect, units=\degrees\, template=\geographics\) #LHG

LEN <- circular(LEN$pitch.perfect, units=\degrees\, template=\geographics\) #LEN
LEL <- circular(LEL$pitch.perfect, units=\degrees\, template=\geographics\) #LEL
LEM <- circular(LEM$pitch.perfect, units=\degrees\, template=\geographics\) #LEM
LEH <- circular(LEH$pitch.perfect, units=\degrees\, template=\geographics\) #LEH
LEG <- circular(LEG$pitch.perfect, units=\degrees\, template=\geographics\) #LEG

############  Lights Off

DNN <- circular(DNN$pitch.perfect, units=\degrees\, template=\geographics\) #DNN
DNL <- circular(DNL$pitch.perfect, units=\degrees\, template=\geographics\) #DNL
DNM <- circular(DNM$pitch.perfect, units=\degrees\, template=\geographics\) #DNM
DNH <- circular(DNH$pitch.perfect, units=\degrees\, template=\geographics\) #DNH
DNG <- circular(DNG$pitch.perfect, units=\degrees\, template=\geographics\) #DNG

DLN <- circular(DLN$pitch.perfect, units=\degrees\, template=\geographics\) #DLN
DLL <- circular(DLL$pitch.perfect, units=\degrees\, template=\geographics\) #DLL
DLM <- circular(DLM$pitch.perfect, units=\degrees\, template=\geographics\) #DLM
DLH <- circular(DLH$pitch.perfect, units=\degrees\, template=\geographics\) #DLH
DLG <- circular(DLG$pitch.perfect, units=\degrees\, template=\geographics\) #DLG

DMN <- circular(DMN$pitch.perfect, units=\degrees\, template=\geographics\) #DMN
DML <- circular(DML$pitch.perfect, units=\degrees\, template=\geographics\) #DML
DMM <- circular(DMM$pitch.perfect, units=\degrees\, template=\geographics\) #DMM
DMH <- circular(DMH$pitch.perfect, units=\degrees\, template=\geographics\) #DMH
DMG <- circular(DMG$pitch.perfect, units=\degrees\, template=\geographics\) #DMG

DHN <- circular(DHN$pitch.perfect, units=\degrees\, template=\geographics\) #DHN
DHL <- circular(DHL$pitch.perfect, units=\degrees\, template=\geographics\) #DHL
DHM <- circular(DHM$pitch.perfect, units=\degrees\, template=\geographics\) #DHM
DHH <- circular(DHH$pitch.perfect, units=\degrees\, template=\geographics\) #DHH
DHG <- circular(DHG$pitch.perfect, units=\degrees\, template=\geographics\) #DHG

DEN <- circular(DEN$pitch.perfect, units=\degrees\, template=\geographics\) #DEN
DEL <- circular(DEL$pitch.perfect, units=\degrees\, template=\geographics\) #DEL
DEM <- circular(DEM$pitch.perfect, units=\degrees\, template=\geographics\) #DEM
DEH <- circular(DEH$pitch.perfect, units=\degrees\, template=\geographics\) #DEH
DEG <- circular(DEG$pitch.perfect, units=\degrees\, template=\geographics\) #DEG
######################################################################################

############################################################################
mean(LNN, na.rm = TRUE) #remove NAs from dataset, then find mean 
LNN.mean <- mean(LNN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LNN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)  ### larger stack number = more zoomed out
arrows.circular(LNN.mean) #add mean to plot
###########################################################################

mean(LNL, na.rm = TRUE) #remove NAs from dataset, then find mean 
LNL.mean <- mean(LNL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LNL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LNL.mean) #add mean to plot
###########################################################################

mean(LNM, na.rm = TRUE) #remove NAs from dataset, then find mean 
LNM.mean <- mean(LNM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LNM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LNM.mean) #add mean to plot
###########################################################################

mean(LNH, na.rm = TRUE) #remove NAs from dataset, then find mean 
LNH.mean <- mean(LNH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LNH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LNH.mean) #add mean to plot
###########################################################################

mean(LNG, na.rm = TRUE) #remove NAs from dataset, then find mean 
LNG.mean <- mean(LNG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LNG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LNG.mean) #add mean to plot
###########################################################################

#########################################################################
      ## Lights On Low Flow

############################################################################
mean(LLN, na.rm = TRUE) #remove NAs from dataset, then find mean 
LLN.mean <- mean(LLN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LLN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LLN.mean) #add mean to plot
###########################################################################

mean(LLL, na.rm = TRUE) #remove NAs from dataset, then find mean 
LLL.mean <- mean(LLL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LLL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LLL.mean) #add mean to plot
###########################################################################

mean(LLM, na.rm = TRUE) #remove NAs from dataset, then find mean 
LLM.mean <- mean(LLM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LLM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LLM.mean) #add mean to plot
###########################################################################

mean(LLH, na.rm = TRUE) #remove NAs from dataset, then find mean 
LLH.mean <- mean(LLH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LLH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LLH.mean) #add mean to plot
###########################################################################

mean(LLG, na.rm = TRUE) #remove NAs from dataset, then find mean 
LLG.mean <- mean(LLG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LLG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LLG.mean) #add mean to plot
###########################################################################


#########################################################################
      ## Lights On Medium Flow

############################################################################
mean(LMN, na.rm = TRUE) #remove NAs from dataset, then find mean 
LMN.mean <- mean(LMN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LMN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LMN.mean) #add mean to plot
###########################################################################

mean(LML, na.rm = TRUE) #remove NAs from dataset, then find mean 
LML.mean <- mean(LML, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LML, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LML.mean) #add mean to plot
###########################################################################

mean(LMM, na.rm = TRUE) #remove NAs from dataset, then find mean 
LMM.mean <- mean(LMM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LMM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LMM.mean) #add mean to plot
###########################################################################

mean(LMH, na.rm = TRUE) #remove NAs from dataset, then find mean 
LMH.mean <- mean(LMH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LMH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LMH.mean) #add mean to plot
###########################################################################

mean(LMG, na.rm = TRUE) #remove NAs from dataset, then find mean 
LMG.mean <- mean(LMG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LMG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LMG.mean) #add mean to plot
###########################################################################


#########################################################################
      ## Lights On High Flow

############################################################################
mean(LHN, na.rm = TRUE) #remove NAs from dataset, then find mean 
LHN.mean <- mean(LHN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LHN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LHN.mean) #add mean to plot
###########################################################################

mean(LHL, na.rm = TRUE) #remove NAs from dataset, then find mean 
LHL.mean <- mean(LHL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LHL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LHL.mean) #add mean to plot
###########################################################################

mean(LHM, na.rm = TRUE) #remove NAs from dataset, then find mean 
LHM.mean <- mean(LHM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LHM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LHM.mean) #add mean to plot
###########################################################################

mean(LHH, na.rm = TRUE) #remove NAs from dataset, then find mean 
LHH.mean <- mean(LHH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LHH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LHH.mean) #add mean to plot
###########################################################################

mean(LHG, na.rm = TRUE) #remove NAs from dataset, then find mean 
LHG.mean <- mean(LHG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LHG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LHG.mean) #add mean to plot
###########################################################################



#########################################################################
      ## Lights On Extreme Flow

############################################################################
mean(LEN, na.rm = TRUE) #remove NAs from dataset, then find mean 
LEN.mean <- mean(LEN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LEN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LEN.mean) #add mean to plot
###########################################################################

mean(LEL, na.rm = TRUE) #remove NAs from dataset, then find mean 
LEL.mean <- mean(LEL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LEL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LEL.mean) #add mean to plot
###########################################################################

mean(LEM, na.rm = TRUE) #remove NAs from dataset, then find mean 
LEM.mean <- mean(LEM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LEM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LEM.mean) #add mean to plot
###########################################################################

mean(LEH, na.rm = TRUE) #remove NAs from dataset, then find mean 
LEH.mean <- mean(LEH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LEH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LEH.mean) #add mean to plot
###########################################################################

mean(LEG, na.rm = TRUE) #remove NAs from dataset, then find mean 
LEG.mean <- mean(LEG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(LEG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(LEG.mean) #add mean to plot
###########################################################################

#########################################################################
      ## Lights Off No Flow

############################################################################
mean(DNN, na.rm = TRUE) #remove NAs from dataset, then find mean 
DNN.mean <- mean(DNN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DNN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)  ### larger stack number = more zoomed out
arrows.circular(DNN.mean) #add mean to plot
###########################################################################

mean(DNL, na.rm = TRUE) #remove NAs from dataset, then find mean 
DNL.mean <- mean(DNL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DNL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DNL.mean) #add mean to plot
###########################################################################

mean(DNM, na.rm = TRUE) #remove NAs from dataset, then find mean 
DNM.mean <- mean(DNM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DNM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DNM.mean) #add mean to plot
###########################################################################

mean(DNH, na.rm = TRUE) #remove NAs from dataset, then find mean 
DNH.mean <- mean(DNH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DNH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DNH.mean) #add mean to plot
###########################################################################

mean(DNG, na.rm = TRUE) #remove NAs from dataset, then find mean 
DNG.mean <- mean(DNG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DNG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DNG.mean) #add mean to plot
###########################################################################

#########################################################################
      ## Lights Off Low Flow

############################################################################
mean(DLN, na.rm = TRUE) #remove NAs from dataset, then find mean 
DLN.mean <- mean(DLN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DLN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DLN.mean) #add mean to plot
###########################################################################

mean(DLL, na.rm = TRUE) #remove NAs from dataset, then find mean 
DLL.mean <- mean(DLL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DLL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DLL.mean) #add mean to plot
###########################################################################

mean(DLM, na.rm = TRUE) #remove NAs from dataset, then find mean 
DLM.mean <- mean(DLM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DLM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DLM.mean) #add mean to plot
###########################################################################

mean(DLH, na.rm = TRUE) #remove NAs from dataset, then find mean 
DLH.mean <- mean(DLH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DLH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DLH.mean) #add mean to plot
###########################################################################

mean(DLG, na.rm = TRUE) #remove NAs from dataset, then find mean 
DLG.mean <- mean(DLG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DLG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DLG.mean) #add mean to plot
###########################################################################


#########################################################################
      ## Lights On Medium Flow

############################################################################
mean(DMN, na.rm = TRUE) #remove NAs from dataset, then find mean 
DMN.mean <- mean(DMN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DMN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DMN.mean) #add mean to plot
###########################################################################

mean(DML, na.rm = TRUE) #remove NAs from dataset, then find mean 
DML.mean <- mean(DML, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DML, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DML.mean) #add mean to plot
###########################################################################

mean(DMM, na.rm = TRUE) #remove NAs from dataset, then find mean 
DMM.mean <- mean(DMM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DMM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DMM.mean) #add mean to plot
###########################################################################

mean(DMH, na.rm = TRUE) #remove NAs from dataset, then find mean 
DMH.mean <- mean(DMH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DMH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DMH.mean) #add mean to plot
###########################################################################

mean(DMG, na.rm = TRUE) #remove NAs from dataset, then find mean 
DMG.mean <- mean(DMG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DMG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DMG.mean) #add mean to plot
###########################################################################


#########################################################################
      ## Lights Off High Flow

############################################################################
mean(DHN, na.rm = TRUE) #remove NAs from dataset, then find mean 
DHN.mean <- mean(DHN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DHN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DHN.mean) #add mean to plot
###########################################################################

mean(DHL, na.rm = TRUE) #remove NAs from dataset, then find mean 
DHL.mean <- mean(DHL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DHL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DHL.mean) #add mean to plot
###########################################################################

mean(DHM, na.rm = TRUE) #remove NAs from dataset, then find mean 
DHM.mean <- mean(DHM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DHM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DHM.mean) #add mean to plot
###########################################################################

mean(DHH, na.rm = TRUE) #remove NAs from dataset, then find mean 
DHH.mean <- mean(DHH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DHH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DHH.mean) #add mean to plot
###########################################################################

mean(DHG, na.rm = TRUE) #remove NAs from dataset, then find mean 
DHG.mean <- mean(DHG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DHG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DHG.mean) #add mean to plot
###########################################################################

#########################################################################
      ## Lights On Extreme Flow

############################################################################
mean(DEN, na.rm = TRUE) #remove NAs from dataset, then find mean 
DEN.mean <- mean(DEN, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DEN, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DEN.mean) #add mean to plot
###########################################################################

mean(DEL, na.rm = TRUE) #remove NAs from dataset, then find mean 
DEL.mean <- mean(DEL, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DEL, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DEL.mean) #add mean to plot
###########################################################################

mean(DEM, na.rm = TRUE) #remove NAs from dataset, then find mean 
DEM.mean <- mean(DEM, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DEM, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DEM.mean) #add mean to plot
###########################################################################

mean(DEH, na.rm = TRUE) #remove NAs from dataset, then find mean 
DEH.mean <- mean(DEH, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DEH, stack = T, pch = 20, sep = 0.08, shrink = 1.6)
arrows.circular(DEH.mean) #add mean to plot
###########################################################################

mean(DEG, na.rm = TRUE) #remove NAs from dataset, then find mean 
DEG.mean <- mean(DEG, na.rm = TRUE) #assigns to the 'LNN.mean' object

plot.circular(DEG, stack = T, pch = 20, sep = 0.08, shrink = 1.6)  ### larger stack number = more zoomed out
arrows.circular(DEG.mean) #add mean to plot
###########################################################################

<!-- rnb-source-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->



<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuc3RyKENDLlRvdGFsRGF0YSlcblxubGV2ZWxzKENDLlRvdGFsRGF0YSREX1YpXG5gYGBcbmBgYCJ9 -->

```r
```r
str(CC.TotalData)

levels(CC.TotalData$D_V)

<!-- rnb-source-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->


Tests against each other


<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxud2F0c29uLndoZWVsZXIudGVzdChkYXRhMSlcblxuYGBgXG5gYGAifQ== -->

```r
```r
watson.wheeler.test(data1)

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiV2FybmluZyBpbiB3YXRzb24ud2hlZWxlci50ZXN0LmRlZmF1bHQoeCwgZ3JvdXApIDpcbiAgVGhlcmUgYXJlIDEyOTc5MCB0aWVzIGluIHRoZSBkYXRhLlxuICBUaWVzIHdpbGwgYmUgYnJva2VuIGFwcGFydCByYW5kb21seSBhbmQgbWF5IGluZmx1ZW5jZSB0aGUgcmVzdWx0LlxuICBSZS1ydW4gdGhlIHRlc3Qgc2V2ZXJhbCB0aW1lcyB0byBjaGVjayB0aGUgaW5mbHVlbmNlIG9mIHRpZXMuXG5cblx0V2F0c29uLVdoZWVsZXIgdGVzdCBmb3IgaG9tb2dlbmVpdHkgb2YgYW5nbGVzXG5cbmRhdGE6ICBleHAgYW5kIGNvbnRyb2xcblcgPSA3OTIuNywgZGYgPSAyLCBwLXZhbHVlIDwgMi4yZS0xNlxuIn0= -->

Warning in watson.wheeler.test.default(x, group) : There are 129790 ties in the data. Ties will be broken appart randomly and may influence the result. Re-run the test several times to check the influence of ties.

Watson-Wheeler test for homogeneity of angles

data: exp and control W = 792.7, df = 2, p-value < 2.2e-16

<!-- rnb-output-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->


Saving Data.frames as csv files

<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuc3RyKGRhdGEpXG5cbmBgYFxuYGBgIn0= -->

```r
```r
str(data)

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiJ2RhdGEuZnJhbWUnOlx0Mjc2NTM0MyBvYnMuIG9mICA0OCB2YXJpYWJsZXM6XG4gJCBEYXRlICAgICAgICAgICAgICAgICA6IGNociAgXFwyMDE5MTExOFxcIFxcMjAxOTExMThcXCBcXDIwMTkxMTE4XFwgXFwyMDE5MTExOFxcIC4uLlxuICQgRmlsZS5uYW1lICAgICAgICAgICAgOiBjaHIgIFxcMjAxOTExMThfdmlldzFfXFwgXFwyMDE5MTExOF92aWV3MV9cXCBcXDIwMTkxMTE4X3ZpZXcxX1xcIFxcMjAxOTExMThfdmlldzFfXFwgLi4uXG4gJCBYICAgICAgICAgICAgICAgICAgICA6IG51bSAgMC4zMTkgMC4zMjMgMC4xNjIgMC4xNjMgMC4xNzMgLi4uXG4gJCBZICAgICAgICAgICAgICAgICAgICA6IG51bSAgMC4yODk5IDAuMzMyMiAwLjA0MzMgMC4wNDA1IDAuMDM3MSAuLi5cbiAkIFogICAgICAgICAgICAgICAgICAgIDogbnVtICAtMC4wNjg0IC0wLjA2NjIgLTAuMDc3NCAtMC4wNzc0IC0wLjA4MyAuLi5cbiAkIFRyYWNrICAgICAgICAgICAgICAgIDogaW50ICAxIDEgMSAxIDEgMSAxIDEgMSAxIC4uLlxuICQgVmlldyAgICAgICAgICAgICAgICAgOiBjaHIgIFxcMV9cXCBcXDFfXFwgXFwxX1xcIFxcMV9cXCAuLi5cbiAkIERfVl9UICAgICAgICAgICAgICAgIDogRmFjdG9yIHcvIDM0MiBsZXZlbHMgXFwyMDE5MTExOF8xX18xXFwsLi46IDEgMSAxIDEgMSAxIDEgMSAxIDEgLi4uXG4gJCBEX1YgICAgICAgICAgICAgICAgICA6IEZhY3RvciB3LyA3OCBsZXZlbHMgXFwyMDE5MTExOF8xX1xcLC4uOiAxIDEgMSAxIDEgMSAxIDEgMSAxIC4uLlxuICQgRmxvdy5yYXRlICAgICAgICAgICAgOiBGYWN0b3Igdy8gNSBsZXZlbHMgXFxObyBGbG93XFwsXFxMb3cgRmxvd1xcLC4uOiAxIDEgMSAxIDEgMSAxIDEgMSAxIC4uLlxuICQgQ2hsb3JvcGh5bGwgICAgICAgICAgOiBGYWN0b3Igdy8gNCBsZXZlbHMgXFxObyBDaGxvcm9waHlsbFxcLC4uOiAxIDEgMSAxIDEgMSAxIDEgMSAxIC4uLlxuICQgR3Vhbm8gICAgICAgICAgICAgICAgOiBGYWN0b3Igdy8gMiBsZXZlbHMgXFxBYnNlbnRcXCxcXFByZXNlbnRcXDogMSAxIDEgMSAxIDEgMSAxIDEgMSAuLi5cbiAkIExpZ2h0ICAgICAgICAgICAgICAgIDogRmFjdG9yIHcvIDIgbGV2ZWxzIFxcQWJzZW50XFwsXFxQcmVzZW50XFw6IDIgMiAyIDIgMiAyIDIgMiAyIDIgLi4uXG4gJCBkeCAgICAgICAgICAgICAgICAgICA6IG51bSAgLTAuMDAwNTggLTAuMDAxMTYgMC4wMDE0MSAwLjAwMjgzIDAuMDA3MDUgLi4uXG4gJCBkeSAgICAgICAgICAgICAgICAgICA6IG51bSAgMC4wMTIyOCAwLjAxNDM3IC0wLjAwMjczIC0wLjAwMTgzIDAuMDAwMTUgLi4uXG4gJCBkeiAgICAgICAgICAgICAgICAgICA6IG51bSAgLTAuMDAwNTU5IDAgMCAwLjAwMDU2IC0wLjAwMDU1OSAuLi5cbiAkIGQgICAgICAgICAgICAgICAgICAgIDogbnVtICAwLjAxMjMxIDAuMDE0NDIgMC4wMDMwNyAwLjAwMzQyIDAuMDA3MDcgLi4uXG4gJCB2eCAgICAgICAgICAgICAgICAgICA6IG51bSAgLTAuMDE3NCAtMC4wMzQ4IDAuMDQyMyAwLjA4NDkgMC4yMTE1IC4uLlxuICQgdnkgICAgICAgICAgICAgICAgICAgOiBudW0gIDAuMzY4NCAwLjQzMTEgLTAuMDgxOSAtMC4wNTQ4IDAuMDA0NSAuLi5cbiAkIHZ6ICAgICAgICAgICAgICAgICAgIDogbnVtICAtMC4wMTY4IDAgMCAwLjAxNjggLTAuMDE2OCAuLi5cbiAkIHYgICAgICAgICAgICAgICAgICAgIDogbnVtICAwLjM2OTIgMC40MzI1IDAuMDkyMiAwLjEwMjUgMC4yMTIyIC4uLlxuICQgaGVhZGluZyAgICAgICAgICAgICAgOiBudW0gIC0wLjA0NzIgLTAuMDgwNSAyLjY2NDcgMi4xNDQzIDEuNTQ5NSAuLi5cbiAkIHBpdGNoICAgICAgICAgICAgICAgIDogbnVtICAtMC4wNDU0IDAgMCAwLjE2NDcgLTAuMDc5MSAuLi5cbiAkIHZlbC50dXJuLmFuZ2xlICAgICAgIDogbnVtICAwIDMuMjMgMTU3LjI5IDMxLjE0IDM2LjcyIC4uLlxuICQgdmVsLmZsb3cgICAgICAgICAgICAgOiBudW0gIDAuMzY4NCAwLjQzMTEgLTAuMDgxOSAtMC4wNTQ4IDAuMDA0NSAuLi5cbiAkIHRyaW0uWCAgICAgICAgICAgICAgIDogbnVtICAwLjMxOSAwLjMyMyAwLjE2MiAwLjE2MyAwLjE3MyAuLi5cbiAkIHhzbW9vdGggICAgICAgICAgICAgIDogbnVtICAwLjMxOSAwLjMxOSAwLjE3MyAwLjE4IDAuMzE5IC4uLlxuICAuLi0gYXR0cigqLCBcXGtcXCk9IGludCAzMVxuICQgeXNtb290aCAgICAgICAgICAgICAgOiBudW0gIDAuMjg5OSAwLjI4OTkgMC4wNDMzIDAuMDQzMyAwLjA3MTcgLi4uXG4gIC4uLSBhdHRyKCosIFxca1xcKT0gaW50IDMxXG4gJCB6c21vb3RoICAgICAgICAgICAgICA6IG51bSAgLTAuMDY4NCAtMC4wNjg0IC0wLjA3NzQgLTAuMDc3NCAtMC4wNjg0IC4uLlxuICAuLi0gYXR0cigqLCBcXGtcXCk9IGludCAzMVxuICQgc21vb3RoLmR4ICAgICAgICAgICAgOiBudW0gIDAgLTAuMTQ1NzQgMC4wMDcwNSAwLjEzODY5IDAgLi4uXG4gJCBzbW9vdGguZHkgICAgICAgICAgICA6IG51bSAgMCAtMC4yNDY2MyAwIDAuMDI4NDIgLTAuMDA3NTMgLi4uXG4gJCBzbW9vdGguZHogICAgICAgICAgICA6IG51bSAgMCAtMC4wMDg5NSAwIDAuMDA4OTUgMC4wMDIyNCAuLi5cbiAkIHNtb290aC5kICAgICAgICAgICAgIDogbnVtICAwIDAuMjg2NjEgMC4wMDcwNSAwLjE0MTg2IDAuMDA3ODYgLi4uXG4gJCBzbW9vdGgudnggICAgICAgICAgICA6IG51bSAgMCAtNC4zNzIgMC4yMTIgNC4xNjEgMCAuLi5cbiAkIHNtb290aC52eSAgICAgICAgICAgIDogbnVtICAwIC03LjM5OSAwIDAuODUzIC0wLjIyNiAuLi5cbiAkIHNtb290aC52eiAgICAgICAgICAgIDogbnVtICAwIC0wLjI2ODQgMCAwLjI2ODQgMC4wNjcxIC4uLlxuICQgc21vb3RoLnYgICAgICAgICAgICAgOiBudW0gIDAgOC41OTggMC4yMTIgNC4yNTYgMC4yMzYgLi4uXG4gJCBzbW9vdGguaGVhZGluZyAgICAgICA6IG51bSAgMCAtMi42MSAxLjU3IDEuMzcgMy4xNCAuLi5cbiAkIGhlYWRpbmcucGkgICAgICAgICAgIDogbnVtICAwIC0xNDkuNCA5MCA3OC40IDE4MCAuLi5cbiAkIHNtb290aC5waXRjaCAgICAgICAgIDogbnVtICAwIC0wLjAzMTIgMCAwLjA2MzEgMC4yODg3IC4uLlxuICQgcGl0Y2gucGVyZmVjdCAgICAgICAgOiBudW0gIDAgLTEuNzkgMCAzLjYyIDE2LjU0IC4uLlxuICQgdHVybi5hbmdsZXh5c21vb3RoICAgOiBudW0gIDAuODMzIDAuODMzIDEuMzI2IDEuMzM1IDEuMzUgLi4uXG4gIC4uLSBhdHRyKCosIFxca1xcKT0gaW50IDMxXG4gJCB0dXJuLmFuZ2xleXpzbW9vdGggICA6IG51bSAgMS44IDEuOCAyLjYzIDIuNjMgMi4zMyAuLi5cbiAgLi4tIGF0dHIoKiwgXFxrXFwpPSBpbnQgMzFcbiAkIHR1cm4uYW5nbGUuc21vb3RoICAgIDogbnVtICBOQSBOQSBOQSBOQSBOQSBOQSBOQSBOQSBOQSBOQSAuLi5cbiAkIHZlbC50dXJuLmFuZ2xlLnNtb290aDogbnVtICAwIE5hTiAxMjAuNiAxMi4xIDEwMCAuLi5cbiAkIHR1cm4uYW5nbGV4eSAgICAgICAgIDogbnVtICAwLjgzMyAwLjc3MiAxLjMwOSAxLjMyNyAxLjM1OSAuLi5cbiAkIHR1cm4uYW5nbGV5eiAgICAgICAgIDogbnVtICAxLjggMS43NyAyLjYzIDIuNjYgMi43MiAuLi5cbiAkIHR1cm4uYW5nbGUgICAgICAgICAgIDogbnVtICBOQSAzLjIzIDE1Ny4yOSAzMS4xNCAzNi43MiAuLi5cbiAtIGF0dHIoKiwgXFxuYS5hY3Rpb25cXCk9ICdvbWl0JyBOYW1lZCBpbnQgWzE6MTI3MzQ3Nl0gMSAyIDMgNCA1IDYgNyA4IDkgMTAgLi4uXG4gIC4uLSBhdHRyKCosIFxcbmFtZXNcXCk9IGNociBbMToxMjczNDc2XSBcXDE5XFwgXFwzMVxcIFxcNDdcXCBcXDU2XFwgLi4uXG4ifQ== -->

‘data.frame’: 2765343 obs. of 48 variables: $ Date : chr \20191118 \20191118 \20191118 \20191118 … $ File.name : chr \20191118_view1_ \20191118_view1_ \20191118_view1_ \20191118_view1_ … $ X : num 0.319 0.323 0.162 0.163 0.173 … $ Y : num 0.2899 0.3322 0.0433 0.0405 0.0371 … $ Z : num -0.0684 -0.0662 -0.0774 -0.0774 -0.083 … $ Track : int 1 1 1 1 1 1 1 1 1 1 … $ View : chr \1_ \1_ \1_ \1_ … $ D_V_T : Factor w/ 342 levels \20191118_1_1,..: 1 1 1 1 1 1 1 1 1 1 … $ D_V : Factor w/ 78 levels \20191118_1,..: 1 1 1 1 1 1 1 1 1 1 … $ Flow.rate : Factor w/ 5 levels Flow,Flow,..: 1 1 1 1 1 1 1 1 1 1 … $ Chlorophyll : Factor w/ 4 levels Chlorophyll,..: 1 1 1 1 1 1 1 1 1 1 … $ Guano : Factor w/ 2 levels ,: 1 1 1 1 1 1 1 1 1 1 … $ Light : Factor w/ 2 levels ,: 2 2 2 2 2 2 2 2 2 2 … $ dx : num -0.00058 -0.00116 0.00141 0.00283 0.00705 … $ dy : num 0.01228 0.01437 -0.00273 -0.00183 0.00015 … $ dz : num -0.000559 0 0 0.00056 -0.000559 … $ d : num 0.01231 0.01442 0.00307 0.00342 0.00707 … $ vx : num -0.0174 -0.0348 0.0423 0.0849 0.2115 … $ vy : num 0.3684 0.4311 -0.0819 -0.0548 0.0045 … $ vz : num -0.0168 0 0 0.0168 -0.0168 … $ v : num 0.3692 0.4325 0.0922 0.1025 0.2122 … $ heading : num -0.0472 -0.0805 2.6647 2.1443 1.5495 … $ pitch : num -0.0454 0 0 0.1647 -0.0791 … $ vel.turn.angle : num 0 3.23 157.29 31.14 36.72 … $ vel.flow : num 0.3684 0.4311 -0.0819 -0.0548 0.0045 … $ trim.X : num 0.319 0.323 0.162 0.163 0.173 … $ xsmooth : num 0.319 0.319 0.173 0.18 0.319 … ..- attr(, = int 31 $ ysmooth : num 0.2899 0.2899 0.0433 0.0433 0.0717 … ..- attr(, = int 31 $ zsmooth : num -0.0684 -0.0684 -0.0774 -0.0774 -0.0684 … ..- attr(, = int 31 $ smooth.dx : num 0 -0.14574 0.00705 0.13869 0 … $ smooth.dy : num 0 -0.24663 0 0.02842 -0.00753 … $ smooth.dz : num 0 -0.00895 0 0.00895 0.00224 … $ smooth.d : num 0 0.28661 0.00705 0.14186 0.00786 … $ smooth.vx : num 0 -4.372 0.212 4.161 0 … $ smooth.vy : num 0 -7.399 0 0.853 -0.226 … $ smooth.vz : num 0 -0.2684 0 0.2684 0.0671 … $ smooth.v : num 0 8.598 0.212 4.256 0.236 … $ smooth.heading : num 0 -2.61 1.57 1.37 3.14 … $ heading.pi : num 0 -149.4 90 78.4 180 … $ smooth.pitch : num 0 -0.0312 0 0.0631 0.2887 … $ pitch.perfect : num 0 -1.79 0 3.62 16.54 … $ turn.anglexysmooth : num 0.833 0.833 1.326 1.335 1.35 … ..- attr(, = int 31 $ turn.angleyzsmooth : num 1.8 1.8 2.63 2.63 2.33 … ..- attr(, = int 31 $ turn.angle.smooth : num NA NA NA NA NA NA NA NA NA NA … $ vel.turn.angle.smooth: num 0 NaN 120.6 12.1 100 … $ turn.anglexy : num 0.833 0.772 1.309 1.327 1.359 … $ turn.angleyz : num 1.8 1.77 2.63 2.66 2.72 … $ turn.angle : num NA 3.23 157.29 31.14 36.72 … - attr(, .action)= ‘omit’ Named int [1:1273476] 1 2 3 4 5 6 7 8 9 10 … ..- attr(*, )= chr [1:1273476] \19 \31 \47 \56 … ```